Question

Составить программу на паскале по функции

Answer 1

Var x:integer;

y:real;

begin

read (x);

If x<-6 then y:=8+14*x;

If (x=-6) or (x<1) then y:=9*cos(x);

If (x>1) or (x=1) then y:=x+2;

write (y:3:2);

end.