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

Question

Информатика

Станя

10 ноября, 13:33

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

+5

Ответы (2)

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

Володяша · Answer 1

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

Анастасиюшка · Answer 2

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