Question

Напишите программу на языке програмирования Паскаль которая в последовательности N целых чисел определяет количество четных чисел кратных 3

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 ReadSeqInteger(n).Count(p -> (p mod 3 = 0) and p.IsEven).Print

end.