Дано целое число N (>0). Используя операции деления нацело и взятие остатка от деления найти количество и сумму его цифр.

Question

Миланка

3 марта, 17:21

+4

Ответы (2)

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

Митрюша · Answer 1

var n, count, sum:integer;

begin

read (n) ;

count:=0;

sum:=0;

while (n0) do

inc (count) ;

sum:=sum + (n mod 10) ;

n:=n div 10;

end

end.

Деня · Answer 2

n=get ()

k=0

s=0

while n>=1 do

s=s+n % 10

k=k+1

n = (n-n%10) / 10

end

print (s, k)