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

  • Вася подсчитал сумму цифр натурального числа N , а затем сумму цифр у полученной суммы цифр. Какое число он получил?

    Входные данные
    Вводится одно натуральное число N , меньшее 10 000 .

    Выходные данные
    Выведите одно натуральное число — ответ в задаче.
    НУЖНО СДЕЛАТЬ НА PASCAL ABC

Ответы 1

  • var n,s:integer;beginreadln(n);s:=0;while n>0 do begin s:=s+n mod 10; n:=n div 10; end;writeln(s div 10 + s mod 10);end.Пример:40937

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

Еще вопросы

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

Войти через Google

 или

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

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

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