Предмет: Информатика,
автор: Nydayanemogyrewit
ПОМОГИТЕ МНЕ ПОЛУЧИТЕ 30б!
Program pomogite;
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.
Помогите объяснить решение этой задачи, почему я именно так решил ее пж!
Ответы
Автор ответа:
1
Ответ:
Похожие вопросы
Предмет: Қазақ тiлi,
автор: yakovenkoo1
Предмет: Английский язык,
автор: Mol2004
Предмет: Русский язык,
автор: САНТАЛОВА
Предмет: География,
автор: cleverboyintheworld
Предмет: Математика,
автор: aminmagomedov722