Предмет: Информатика, автор: TheSpyZ

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

Ответы

Автор ответа: fikort
0
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.
Автор ответа: TheSpyZ
0
Спасибо большое :)
Похожие вопросы
Предмет: Другие предметы, автор: polya17171