Ребят помогите с задачей в Pacal. Натуральное число называется палиндромом, если его запись читается одинаково с начала и с конца (например: 1,22,393). Найти все меньшие 100 натуральные числа , которые при возведении в квадрат ...
Ребят помогите с задачей в Pacal.
Натуральное число называется палиндромом, если его запись читается одинаково с начала и с конца (например: 1,22,393). Найти все меньшие 100 натуральные числа , которые при возведении в квадрат дают палиндром.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы