доно некоторое натуральное число найдите сумму его цифр
Ответ
Проверено экспертом
Автор - supermensha7
Код на Паскале: Program proba; Uses crt; Var n,s:integer; Begin writeln('введите натуральное число'); Readln(n); s:=0; repeat s:=s+n mod 10; n:=n div 10;until n=0; writeln('сумма цифр ',s); end. P.S. Программа вычисляет не только трехзначные числа ;)