• дано трёхзначное число. Определить: является ли сумма его цифр двузначным числом

Ответы 1

  • var a,s:integer;

    Begin

      read(a);

      repeat

        s:=s+a mod 10;

        a:=a div 10

      until a=10;

      if (s<100) and (s>9) then write('Yes')

      else write('No');

    End.

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

Еще вопросы

Войти через Google

или

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

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

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