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

Question

Информатика

Веруся

10 февраля, 00:40

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

+3

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