Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль

Question

Информатика

Маргоша

28 сентября, 09:30

Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль

+3

Ответы (1)

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

Афиноген · Answer 1

Var a, s, k:integer; beginwrite ('введите число: ') ; readln (a) ; while a0 do begink:=a mod 10; s:=s+k; a:=a div 10; end; writeln ('сумма цифр равна ', s) ; end.