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

Question

Информатика

Веруся

25 декабря, 09:11

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

+5

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