Question

Натуральное число называется автоморфным , если оно равно последним цифрам своего квадрата. Например, 25^2=625 . Напишите программу, которая находит все автоморфные числа на отрезке [ a , b ] .

Входные данные
Входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. Гарантируется, что a ≤ b .

Выходные данные
Программа должна вывести в одну строчку все автоморфные числа на отрезке [ a , b ] , разделив их пробелами. Если таких чисел нет, программа должна вывести число -1.

Примеры
входные данные
20 100
выходные данные
25 76
На паскале, через циклы, пожалуйста.

Answer 1

PascalABC.NET

begin
  var flag := true;
  var a := readinteger;
  var b := readinteger;
  for var i := a to b do
    if (i * i).ToString.EndsWith(i.ToString) then
    begin
      write(i, ' ');
      flag := false;
    end;
  if flag then write(-1)
end.