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

Question

Информатика

Георгич

29 марта, 13:55

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

+3

Ответы (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.

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