Автоморфные числа
Натуральное число называется автоморфным , если оно равно последним цифрам своего квадрата.
Например 25²=625 . Напишите программу,
которая находит все автоморфные числа на отрезке [a , b ] .
Входные данные
Входная строка содержит два натуральных
числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .
Выходные данные
Программа должна вывести в одну строчку все
автоморфные числа на отрезке [ a , b ] , разделив их пробелами. Если таких чисел нет,
программа должна вывести число -1.
Примеры
входные данные
20 100
выходные данные
25 76
Answers & Comments
begin
readln(a, b);
a1:=a;
k:=0;
while a<>0 do
begin
a:=a div 10;
k:=k+1;
end;
x:=1;
for i:=1 to k do
x:=x*10;
q:=-1;
for i:=a1 to b do
if i=((i*i) mod x) then
begin
write(i, ' ');
q:=i;
end;
if q=-1 then write(q);
end.