Ответы на вопрос:
Var n,s: integer; begin write('n = '); readln(n); s: =0; while n > 0 do begin s: =s+sqr(n mod 10); n: =n div 10 end; writeln('s = ',s); end.
Популярно: Информатика
-
flash6413.08.2022 12:50
-
olgaollik07.03.2023 12:00
-
5777585877584757507.08.2022 19:42
-
АнастасияCat14428.05.2022 13:57
-
Dog1234711.11.2020 05:50
-
Чекушка22007.10.2021 09:24
-
rosharh8828.01.2021 14:34
-
And200811.06.2022 22:56
-
ketikosti21.09.2022 15:48
-
Айлин129005.01.2022 07:59