Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

var n,i:longint;
function polin(n:longint):boolean;
var i,j:longint;
s:string;
itog:boolean;
begin
itog:=true;
str(n,s);
if length(s)=1 then itog:=false;
for i:=1 to length(s) do begin
j:=length(s)-i+1;
if s[i]<>s[j] then itog:=false; end;
polin:=itog;
end;
BEGIN
n:=99;
writeln(Chisla: );
for i:=1 to n do
if polin(i*i) then
writeln(i, (,i*i,));
end.