Натуральное число называется автоморфным,если оно равно последним цифрам своего квадрата.Например,25²=625.Напишите программу,которая получает натуральное число N и выводит на экран все автоморфные числа,не превосходящие N.

Вопрос школьника по предмету Информатика

Натуральное число называется автоморфным,если оно равно последним цифрам своего квадрата.Например,25²=625.Напишите программу,которая получает натуральное число N и выводит на экран все автоморфные числа,не превосходящие N.

Ответ учителя по предмету Информатика

Program n1;

function au(n:longint):boolean;

var m:longint;

f:boolean;

begin

m:=n*n;

f:=true;

while (n>0) and f do

begin

if (n mod 10)<>(m mod 10) then f:=false

else begin

n:=n div 10;

m:=m div 10;

end;

end;

au:=f;

end;

var i,n: longint;

begin

readln(n);

for i:=1 to n do if au(i) then write(i,’ ‘);

end.