6
сначала 33, а потом по центрам, ну кароч знаешь
Var
a, n, i, c: integer;
begin
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
if(a <= 17) then c := c + 1;
end;
writeln(c);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,p,b):=ReadReal3('Введите x,p,b через пробел:');
Writeln((x*x*Sin(DegToRad(15))+b**(1/3))/Abs(7*Exp(Sqrt(Exp(1)))-2*p))
end.
<span>Нажми CTRL и держи, дальше колесиком мыши вверх-вниз. </span>