Определить, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же...

Question

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

Comments

Повезло, мне) Второй по счету такой же вопрос)

---

вот только решение Ваше не оптимально

Answer 1

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

Comments

Спасибо

---

Незачто)

Answer 2

Решение "по проще".
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.