Нахождения всех автоморфных чисел в отрезке - Pascal ABC

Формулировка задачи:

Составьте программу для нахождения всех автоморфных чисел в отрезке [m;n]. Автоморфным называется целое число, запись которого совпадает с последними цифрами его квадрата. Например: 5²=25, 6²=36, 25²=625

Решение задачи: «Нахождения всех автоморфных чисел в отрезке»

Листинг программы

Const
   m = 1;
   n = 10000;
Var
  i : Longint;
  
Function Avtomorf(a,a2 : Longint) : Boolean;
Begin
  If a>0 then Avtomorf:=((a mod 10)=(a2 mod 10)) and Avtomorf(a div 10, a2 div 10)
    else Avtomorf:=True;
end;
 
Begin
  For i:=m to n do
    If Avtomorf(i,i*i) then Writeln(i,' ',i*i);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Он предназначен для решения задач в области математики и криптографии. Код представляет собой программу для поиска всех автоморфных чисел в заданном диапазоне. В начале кода объявляются две константы: m и n. Переменная m устанавливается равной 1, а переменная n имеет значение 10000. Это задает верхнюю границу диапазона чисел, в котором будет производиться поиск. Затем объявляется переменная i типа Longint. Она будет использоваться для итерации по числам в заданном диапазоне. Далее определяется функция Avtomorf, которая принимает два аргумента типа Longint. Внутри функции происходит проверка условия: если число a больше нуля, то проверяется, равны ли последние цифры числа a и числа a2, деленного на 10. Если оба числа равны, то вызывается сама себя для чисел a и a2, деленных на 10. Если условие выполняется, то функция возвращает значение True, иначе возвращается значение True. После определения функции Avtomorf начинается цикл, который проходит по всем числам в заданном диапазоне. Внутри цикла проверяется, является ли текущее число автоморфным. Если да, то оно выводится на экран вместе со своим квадратом. Таким образом, данный код решает задачу поиска всех автоморфных чисел в заданном диапазоне и выводит их на экран.