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

Var x, a:integer; begin x:=10; while (x<100) do begin a:=x*x; if (a<999) then begin if (((a mod 10) * 100 + ((a mod 100) div 10) * 10 + (a div 100)) = a) then writeln (x); end else begin if (((a 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.

program n1;

var i, k, x, y:integer;

begin

for i:=10 to 99 do begin

k:=i*i;

if (k div 1000=0) then

if (k div 100=k mod 10) then writeln (i)

else begin

x:=k div 100;

y:=k mod 100;

if (x mod 10=y div 10) and (x div 10=y mod 10) then writeln (i);

end;

end;

end.

Ответ: 11, 22, 26

Вот держи на языке паскаль: Var x, i:integer; Begin For i:=10 to 99 do If (i = 32) and ((i*i div 100) = (i*i mod 10) * 10 + ((i*i div 10) mod 10)) then writeln (i); end.