Program Summa; var n, sum:integer;
begin
write('N = ');
readln(n);
sum:= 0;
repeat
sum:=sum+n mod 10;
n:=n div 10
until n=0;
write('Сумма цифр: ',sum,'')
end.
написать объяснение этой задачи почему я именно так решил
168
350
Ответы на вопрос:
Популярно: Информатика
-
FrostMorne23.01.2022 08:43
-
mkm326.10.2022 18:33
-
tasher2284310.03.2021 16:52
-
AmiKot110526.11.2021 19:30
-
54342119.06.2021 11:38
-
оооооченьТупой08.03.2021 04:40
-
OppLeech07.12.2021 05:02
-
Dispasito21.05.2020 18:52
-
korola17.11.2022 00:37
-
масяня15515.10.2021 22:59