Дано трехзначное число. напишиье программу которая суммирует разряды числа

Question

Информатика

Радосвета

8 марта, 14:19

Дано трехзначное число. напишиье программу которая суммирует разряды числа

+1

Ответы (1)

Знаете ответ?

Устина · Answer 1

Var n, s:integer;

begin

write ('n=') ; readln (n) ;

s: = (n div 100) + (n div 10 mod 10) + (n mod 10) ;

writeln ('s=', s) ;

end.

Пример:

n=123

s=6