Предмет: Информатика,
автор: TheSpyZ
Ребят помогите с задачей в Pacal.
Натуральное число называется палиндромом, если его запись читается одинаково с начала и с конца (например: 1,22,393). Найти все меньшие 100 натуральные числа , которые при возведении в квадрат дают палиндром.
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
Спасибо большое :)
Похожие вопросы
Предмет: Английский язык,
автор: credom666
Предмет: Русский язык,
автор: dinovera9
Предмет: Другие предметы,
автор: polya17171
Предмет: Математика,
автор: egorovakseniya1986
Предмет: Химия,
автор: 11бшк45