В четырехразрядном натуральном числе найти сумму разрядов (кумир или паскаль написать программу полностью)
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
