Question

Написать программу, которая выявляла бы перечень годов, кратных 4, но не являющимися високосными.
Вариант 5-10

Answer 1

===== PascalABC.NET =====

begin

 Range(1582, 3000)

   .Where(y -> (y mod 100 = 0) and (y mod 400 <> 0))

   .Print

end.