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

Ришат12333323 Ришат12333323    3   30.09.2019 08:31    27

Ответы
abcdeshnik abcdeshnik  09.10.2020 05:02
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика