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

Ответы

Ответ дал: Аноним
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

Ответ дал: Аноним
0
Загружаете программу, наводите курсор на непонятное место и получаете пвнятную подсказку на русском языке.
Ответ дал: Аноним
0
Range - итератор, создающий последовательность целых чисел от 20 до 50 включительно.
Ответ дал: Аноним
0
Каждый элемент этой последовательности проходит фильтр Where, пропускающий только те элементы, которые удовлетворяют условию. Что прошло - выводится.
Ответ дал: GGWPGGWP228
0
Спасибо)
Ответ дал: Аноним
0
Пожалуйста
Похожие вопросы