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

@nedranko10 · Регистрация: 05.10.2016

Author24 — интернет-сервис помощи студентам

echs · 05.10.2016, 20:29

примечание 1
Эта программа проверяет на наличие палиндромов числа
от 1 до 316 (их квадраты до 100000). Всего таких чисел 13
примечание 2
Кроме этих чисел сюда следует включить 0, а также найденные
числа со знаком минус, ведь их квадраты тоже палиндромы
пример
11^2 = 121
(-11)^2 = 121 (надеюсь это понятно)

QBasic/QuickBASIC

CLS
 
FOR n = 1 TO 316
   n2 = n ^ 2
 
   IF n <= 3 THEN
      PRINT n; n2
   ELSEIF n <= 31 THEN
      a = n2 \ 100
      b = n2 MOD 10
      IF a = b THEN PRINT n; n2
   ELSEIF n <= 99 THEN
      a = n2 \ 100
      b = n2 MOD 100
      c = 10 * (b MOD 10) + b \ 10
      IF a = c THEN PRINT n; n2
   ELSE
      a = n2 \ 1000
      b = n2 MOD 100
      c = 10 * (b MOD 10) + b \ 10
      IF a = c THEN PRINT n; n2
   END IF
NEXT
END

@nedranko10 0 / 0 / 0 Регистрация: 05.10.2016 Сообщений: 2
		1
	найти целые числа которые при возведении в квадрат дают палиндромы 05.10.2016, 19:27. Показов 1363. Ответов 1 Метки нет (Все метки) найти целые числа которые при возведении в квадрат дают палиндромы 0

	05.10.2016, 20:29

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

Решение