• СРОЧНО ПОМОГИТЕ решить №2 во всех вариантов ( Можно и всё решить) Могу и больше баллов дать.

    question img
    question img

Ответы 2

  • Привет, не могли бы мне помочь https://znanija.com/task/31919953 ?Буду очень признательна:)
    • Автор:

      morgan
    • 6 лет назад
    • 0
  • //PascalABC.NET 3.4.2

    Вариант 1 №2

    begin

     ReadSeqInteger(ReadInteger()).Where(x -> (x mod 3 = 0) and (x mod 10 = 2)).Count.Print;

    end.

    Вариант 2 №2

    begin

     var sr := ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x div 10 <> 0) and (x div 100 = 0));

     try

       sr.Average.Print;

     except

       write('NO');

       exit;

     end;

    end.

    • Автор:

      connor262
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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