ПОМОГИТЕ МНЕ ПОЛУЧИТЕ 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
Ответ:
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад