Question

Пожалуйста очень срочно!!!! ​

Answer 1

Ответ:

Объяснение:

program SinusFiginus;

var  

   x, y : real;

begin

  y :=0;

  Write('Input x: ');

  ReadLn(x);

  if x < 0 then begin

       Writeln ('x < 0');

       y:=sin(x);

   end;

  if x >= 0 then if x <= 1 then begin

       Writeln ('0 <= x <= 1');

       y := x*x*x;

   end;

  if x >1 then begin

           Writeln ('x > 1');

           y := x*x-cos(x);

       end;

  Writeln('y= ', y:10:3);

end.