Question

Автоморфные числа натуральное число называется автоморфным , если оно равно последним цифрам своего квадрата. например 25²=625 . напишите программу, которая находит все автоморфные числа на отрезке [a , b ] . входные данные входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. гарантируется, что a ≤ b . выходные данные программа должна вывести в одну строчку все автоморфные числа на отрезке [ a , b ] , разделив их пробелами. если таких чисел нет, программа должна вывести число -1. примеры входные данные 20 100 выходные данные 25 76

Answer 1

Var a, b, a1, i, k, x, q:integer;
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.