Ответы на вопрос:
program z1; var s,n: integer; beginwriteln('введите число'); readln(n); while n> 0 do begin s: =s+n mod 10; n: =n div 10; end; writeln('s=',s); end.
Популярно: Информатика
-
310820061404197626.12.2020 13:17
-
Hope473645745607.09.2021 02:13
-
Begkakaaa12.06.2021 14:00
-
kitsova10.09.2021 20:58
-
sevostyanova200223.10.2022 17:03
-
ttlekzhan09.06.2022 02:19
-
Аняняняняняняняяня01.01.2022 03:00
-
Даня123322130.01.2023 11:10
-
Alisa6661122.04.2022 21:58
-
Ryuuko09.10.2022 01:55