Question

Ребят помогите с задачей в Pacal.
Натуральное число называется палиндромом, если его запись читается одинаково с начала и с конца (например: 1,22,393). Найти все меньшие 100 натуральные числа , которые при возведении в квадрат дают палиндром.

Answer 1

Var
 i,w,q,e:integer;
begin
for i:=1 to 100 do
begin
q:=0;
w:=i*i;
e:=w;
while e>0 do
begin
q:=q*10+ e mod 10;
e:=e div 10;
end;
if q=w then
write(i,' ');
end;
end.