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

0 голосов
319 просмотров

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


Информатика (22 баллов) | 319 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

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)

(53.1k баллов)
0 голосов

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.

 

(28 баллов)