Question

Кто шарит в паскаль помогите ​

Answer 1

Ответ:

Исходник ниже

Объяснение:

program task;

uses Math;

function y(x: Double): Double;

begin

 if (-pi/2 <= x) and (x <= pi/2)

 then begin

y := 2*power(cos(x), 3);

 end else if (x < -4) then

 begin

   y := 3 + exp(4 * x);

 end else if (x > 10) then

 begin

   y := sqrt(2 * x);

 end else

 begin

   y := 0;

 end;

end;

var

 x, res: Double;

begin

 read(x);

 res := y(x);

 writeln(res:0:5);

end.