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

+597 голосов
1.7k просмотров

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


Информатика | 1.7k просмотров
Дан 1 ответ
+95 голосов

// PascalABC.NET

begin

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

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

end.

(1.6k баллов)