Вывести все естественные числа от 20 до 50 кратные 3 и

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

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 Range(20, 50).Where(t -gt; (t mod 3 = 0) and (t mod 5 lt;gt; 0)).Println

end.


21 24 27 33 36 39 42 48

Олежка Муромец
можно подробнее? и что такое range
Карина Щабрина
Загружаете программку, наводите курсор на непонятное место и получаете п\понятную подсказку на российском языке.
Кристина Ломега
Range - итератор, творящий последовательность целых чисел от 20 до 50 включительно.
Таисия
Каждый элемент этой последовательности проходит фильтр Where, пропускающий только те элементы, которые удовлетворяют условию. Что прошло - выводится.
Иван Гаврилко
Спасибо)
Богоносуев Колек
Пожалуйста
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт