Задать вопрос Регистрация
Помочь другим

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

Ответы 2

  • 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.

     

    • Автор:

      ziggy
    • 6 лет назад
    • 0

  • n=get()k=0s=0while n>=1 do    s=s+n % 10    k=k+1    n=(n-n%10)/10endprint(s,k)

    • Автор:

      wifeylsuk
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years