Ребят, помогите пожалуйста с информатикой очень срочно задача (1) нужно выполнить в программе Паскаль ABC. net
Приложения:
Ответы
Ответ дал:
0
// 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
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
Вас заинтересует
2 года назад
2 года назад
3 года назад
9 лет назад