1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | dim a(4)
for i=1 to 99
m=i^2
k=0
f=0
do
k=k+1
a(k)=m mod 10
m=m\10
loop until m=0
for j=1 to k\2
if a(j)<>a(k+1-j)then f=1
next
if f=0 then print i;
next
|
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Заданы натуральные числа a и b. Которые обозначают числитель и знаменатель дроби. Сократить дробь, т.е. найти…
- Найти все такие простые числа, не превосходящие заданного числа N (N < 1000000), двоичная запись которых…
- Палиндром — число (например, 404), буквосочетание, слово или текст (а роза упала на лапу Азора), одинаково…
- Даны число P и число H (P меньше H). Суммировать вводимые числа, большие H,и отдельно суммировать числа,меньшие…
- Даны числа Р и Н (Р
- Даны натуральные числа a, b, c, которые обозначают число, месяц и год. Определить день недели, на который падает…