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

Question

Информатика

Емельян

18 июня, 11:14

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

+1

Ответы (1)

Знаете ответ на вопрос?

Тимофейка · Answer 1

Код на Паскале:

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