Question

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

Answer 1

var n,count,sum:integer;

 

begin

   read(n);

   count:=0;

   sum:=0;

   while (n<>0) 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)