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

2

Ответы и объяснения

2012-04-24T13:35:57+04:00

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.

 

2012-04-24T19:37:15+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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)