Ответы
Ответ дал:
0
while n > 0 do begin
S := S + n mod 10;
n := n div 10;
end;
Все! В S сумма цифр.
S := S + n mod 10;
n := n div 10;
end;
Все! В S сумма цифр.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад