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

10. Авmoморфные числа. Натуральное число называется автоморфным, если оно равно пос??едним цифрам своего квадрата. Например: 25 и 625. Напишите программу, которая вводит натуральное число N и выводит на акран все автоморфные числа, не превосходящие N.
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы