Ответы на вопрос:
Var a,s: integer; begin readln (a); repeat s: =s+a mod 10; a: =a div 10; until a=0; writeln (s); end.
9999999
Объяснение:
Много всего интересного и интересного в интернете и в интернете и интернете в интернете и
Популярно: Информатика
-
ОСЕНЬ201916.10.2020 13:20
-
zinovevartem201712.08.2020 22:10
-
1Кat316.11.2020 16:17
-
Dashuli4ka200129.03.2022 13:42
-
monx18.11.2021 09:08
-
hatira80120.01.2022 19:09
-
Ramazan140322.07.2022 08:25
-
BonYseT05.02.2022 20:22
-
xujixixud29.06.2020 14:25
-
кира67412.08.2020 17:00