Найти целые числа которые при возведении в квадрат дают палиндромы - VB
Формулировка задачи:
найти целые числа которые при возведении в квадрат дают палиндромы
Решение задачи: «Найти целые числа которые при возведении в квадрат дают палиндромы»
textual
Листинг программы
Private Sub Form_Load() Dim i#, i2$ AutoRedraw = True For i = 1 To 30001253 i2 = i * i If i2 = StrReverse$(i2) Then Print i, i2 Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д