Найти целые числа которые при возведении в квадрат дают палиндромы - VB

Узнай цену своей работы

Формулировка задачи:

найти целые числа которые при возведении в квадрат дают палиндромы

Решение задачи: «Найти целые числа которые при возведении в квадрат дают палиндромы»

textual
Листинг программы
  1. Private Sub Form_Load()
  2. Dim i#, i2$
  3.   AutoRedraw = True
  4.   For i = 1 To 30001253
  5.     i2 = i * i
  6.     If i2 = StrReverse$(i2) Then Print i, i2
  7.   Next
  8. End Sub

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


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

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

12   голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы