10. Авmoморфные числа. Натуральное число называется автоморфным, если оно равно последним...

Question

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

Answer 1

Var n,i,l:integer; s1,s2:string; 
begin
write('n = '); readln(n);
for i:=1 to n do
 begin
 str(i,s1);
 l:=length(s1);
 str(i*i,s2);
 if s1=copy(s2,length(s2)-l+1,l) then writeln(i,'  ',i*i);
 end;
end.

Пример:
n = 10000
1  1
5  25
6  36
25  625
76  5776
376  141376
625  390625
9376  87909376

Comments

О процедуре здесь речи не было. Задание: "Напишите программу, которая вводит натуральное число N и выводит на акран все автоморфные числа, не превосходящие N."