Вывести все натуральные числа от 20 до 50 кратные - вопрос №9430252205035 от Olegg9 11.06.2021 14:27

Question

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

Olegg9 · Answer

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