Написать программу вычисления суммы цифр 4-значного числа

Question

Информатика

Викта

25 декабря, 11:42

Написать программу вычисления суммы цифр 4-значного числа

+4

Ответы (1)

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

Селестина · Answer 1

Var

n, s: integer;

begin

readln (n) ;

n : = abs (n) ;

while n > 0 do

begin

s : = s + n mod 10;

n : = n div 10;

end;

writeln (s) ;

end.

универсальный вариант, все равно сколько значное число