Ребят помогите с задачей в Pacal.

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

Question

Информатика

Оскар

21 апреля, 05:07

Ребят помогите с задачей в Pacal.

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

+2

Ответы (1)

Знаете ответ на вопрос?

Аннуся · 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.