Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти целых чисел опре­де­ля­ет...

Question

Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти целых чисел опре­де­ля­ет ко­ли­че­ство нечётных чисел, крат­ных 3. Про­грам­ма по­лу­ча­ет на вход целые числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — признак окон­ча­ния ввода, не вхо­дит в последовательность). Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа по мо­ду­лю не пре­вы­ша­ют 30 000. Про­грам­ма долж­на вы­ве­сти два числа: длину по­сле­до­ва­тель­но­сти (завершающий 0 не учитывается) и ко­ли­че­ство нечётных чисел, крат­ных 3.
Пример работы программы:
Входные данные:4,6,15,180,0.
Выходные:4,1.

Answer 1

// PascalABC.NET 3.3

begin
  var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
  Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.

Пример:
20 87 15 46 61 0
5 2