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

Question

Агап

4 февраля, 23:02

+4

Ответы (2)

Знаете ответ?

Дана · Answer 1

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)

Антониана · Answer 2

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.