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

Question

Информатика

Созонтий

24 ноября, 19:39

Написать программу вычисления суммы цифр 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.

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