1. B:\*.*
2. G:\today.*
3. D:\?????.djvu
4. A:\f??.*
// 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
Правильный вариант - <span>D) (-b + sqrt(D))/(2*a)</span>