Дано натуральное число. Определите сумму цифр в нем

Question

Информатика

Аргентея

14 августа, 16:13

Дано натуральное число. Определите сумму цифр в нем

+4

Ответы (2)

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

Настасья · Answer 1

Разделить на 2 и умножить число которое получилось

Виталика · Answer 2

Var a, s:integer;

begin

readln (a) ;

s:=0;

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

writeln ('s = ', s) ;

end.

Пример:

13854

s = 21