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

Question

Информатика

Артемчик

13 апреля, 23:25

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