Question

Проект:Афтоморфные числа
Автоморфными называются числа которые равны последним числам своего квадрата
Составте программу которая находит все автоморфные числа в интервале от m до n включительно
m и n вводятся с клавиатуры
Очень срочно пожалуйста!!!

Answer 1

var
m,n,i,k,b:Integer;
s1,s2:String;
begin
Writeln('Введите промежуток чисел');
Readln(m,n);
Writeln('Автоморфные числа в заданном промежутке:');
For i:=m to n do
begin
b:=1;
//преобразуем число и его квадрат в строку
Str(i,s1);
Str(sqr(i),s2);
For k:=0 to Length(s1)-1 do
begin
//посимвольно сравниваем
if s1[Length(s1)-k] <> s2 [Length(s2)-k] then
b:=0;
end;
if b=1 then
Writeln(s1);
end;
end.