Найти целые числа которые при возведении в квадрат дают палиндромы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы