Ответы на вопрос:
Program prog; uses crt; var n,s: integer; begin clrscr; write('n = '); readln(n); repeat s: =(n mod 10)+s; n: =n div 10; until n=0; writeln; writeln('s = ', abs(s)); readln; end.
Популярно: Информатика
-
NasVest20.07.2021 13:21
-
ulyanagrab33323.01.2020 02:11
-
nikitavor713512.09.2020 10:58
-
bannikovegor27.02.2020 18:36
-
miki6514.08.2022 08:12
-
6дкоув30.03.2021 08:41
-
Margo1111112222333213.03.2020 01:24
-
Riper16511.07.2021 12:54
-
accyxob25.12.2021 03:00
-
AvgustinaQueen29.11.2020 19:57