Определить, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом, например, числа 6, 25, 625 т.к. их квадратами являются числа 36, 625 и 390625.
Определить, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом, например, числа 6, 25, 625 т.к. их квадратами являются
числа 36, 625 и 390625.
Гость
Ответ(ы) на вопрос:
ГостьВот решение, не надо благодарностей)
ГостьРешение "по проще".
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.
Не нашли ответ?
Похожие вопросы