Дано целое число N( больше 0). Используя операции деления нацело и взятие остатка от деления найти количество и сумму его цифр.
Дано целое число N(>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.
Гость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)
Не нашли ответ?
Похожие вопросы