Question

Ребят, помогите пожалуйста с информатикой очень срочно задача (1) нужно выполнить в программе Паскаль ABC. net

Answer 1

// PascalABC.NET 3.3

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

Пример:
35 60 45 9 105 0
3