Ответы на вопрос:
Var n: integer; begin write('n = '); readln(n); while n > 0 do begin write(sqr(n mod 10),' '); n: =n div 10 end; end.
Популярно: Информатика
-
Лера10022325.03.2023 13:10
-
BlankDawn05.05.2023 22:06
-
zomarova00328.01.2020 05:41
-
uoo3277109.06.2020 14:01
-
natali030303nat13.05.2021 21:35
-
latifa504.02.2021 12:53
-
hkkk1gonso18.06.2021 13:04
-
Yulia47541413.09.2021 18:19
-
nOMOSHHuK23.10.2021 16:32
-
Ruslan111111112316.06.2022 21:44