Определить, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом, например, числа 6, 25, 625 т.к. их квадратами являются числа 36, 625 и 390625.
113
294
Ответы на вопрос:
Решение "по проще". 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.
Популярно: Информатика
-
даня734598527.01.2020 04:46
-
haiskkd19.10.2021 02:15
-
vladaleonova22.01.2021 19:25
-
Mockingbird66631.03.2022 14:14
-
СанькаДьяченко04.05.2021 00:01
-
PicaChuShiK28.01.2020 07:45
-
lowrentij15.09.2021 14:58
-
AlicaWolker1621.03.2020 14:56
-
123456731103.11.2022 00:36
-
ЖеняРай09.10.2022 12:29