• Вывести все натуральные числа от 20 до 50 кратные 3 и не кратные 5 ( на паскале)

Ответы 6

  • Загружаете программу, наводите курсор на непонятное место и получаете п\внятную подсказку на русском языке.
  • Range - итератор, создающий последовательность целых чисел от 20 до 50 включительно.
    • Автор:

      laurel
    • 6 лет назад
    • 0
  • Каждый элемент этой последовательности проходит фильтр Where, пропускающий только те элементы, которые удовлетворяют условию. Что прошло - выводится.
    • Автор:

      biscuit
    • 6 лет назад
    • 0
  • Спасибо)
    • Автор:

      buck63
    • 6 лет назад
    • 0
  • Пожалуйста
    • Автор:

      carlen
    • 6 лет назад
    • 0
  • PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

    begin

     Range(20, 50).Where(t -> (t mod 3 = 0) and (t mod 5 <> 0)).Println

    end.

    21 24 27 33 36 39 42 48
    • Автор:

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

Войти через Google

или

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

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

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