В четырехразрядном натуральном числе найти сумму разрядов (кумир или паскаль написать программу полностью)

Question

Информатика

Надея

9 октября, 17:19

В четырехразрядном натуральном числе найти сумму разрядов (кумир или паскаль написать программу полностью)

+1

Ответы (1)

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

Артюха · Answer 1

Var a, b : integer; beginreadln (a) ; b: = (a mod 10) ; a: = (a div 10) ; b:=b + (a mod 10) ; a: = (a div 10) ; b:=b + (a mod 10) ; a: = (a div 10) ; b:=b + (a mod 10) ; a: = (a div 10) ; writeln (b) ; end.