Question

Определить, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом, например, числа 6, 25, 625 т.к. их квадратами являются
числа 36, 625 и 390625.

Answer 1

Вот решение, не надо благодарностей)

7123e40d29537115c203670098c77adb.pas

Answer 2

Спасибо

Answer 3

Незачто)

Answer 4

Решение "по проще".
Var A,B : Integer;
Begin
  Readln(A);
  B:=sqr(A);
  While (A>0) and ((B mod 10) = (A mod 10)) do
  Begin
    A:=A div 10;
    B:=B div 10;
  end;
  Writeln(A=0);
end.

7123e40d29537115c203670098c77adb.pas