Question

Помогите выполнить на PascalABC(паскале)

Answer 1

1)
Var
 x,y:real;
begin
 read(x);
 y:=(3+exp(x))/cos(x)-1/abs(sqr(x)-0.2*x);
 writeln(y);
end.
2)
Var
 x,y:real;
begin
 read(x);
 if x<=3 then y:=sqr(x)-3*x+9 else y:=1/(power(x,3)+6);
 writeln(y);
end.
3)
Var
 p,i:integer;
begin
p:=1;
 for i:=9 to 16 do //рассматривается вариант с до 17, а не по 17
 if odd(i) then p:=p*i;
 writeln(p);
end.