Выведите на экран все двузначные числа, которые при возведении в квадрат палиндром.pascal abc

210

293

Посмотреть ответы 2

Ответы на вопрос:

ariskin2

Информатика

4,8(13 оценок)

Var x,a: integer; begin x: =10; while (x< 100) do begin a: =x*x; if (a< 999) then begin if mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then writeln(x); end else begin if mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)then writeln(x); end; x: =x+1; end; end.