Дано натуральное число n (трехзначное) Составить программу которая вычисляет сумму цифр этого числа

Question

Информатика

Еликонида

28 апреля, 14:38

Дано натуральное число n (трехзначное) Составить программу которая вычисляет сумму цифр этого числа

+4

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