Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Доно некоторое натуральное число найдите сумму его цифр

Ответ оставил Гость

Код на Паскале:
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. Программа вычисляет не только трехзначные числа ;)