Question

ПрОгРаММИСТЫ помОгите поЖАЛУЙСТА СОСТАВИТЬ программу на языке PASCAL

Answer 1

begin

 var x:=ReadReal();

 if(x<=-4) then

   print(0)

  else if((x>-4) and (x<=6)) then

    print(sin(x)**2)  

  else if((x>=6) and (x<=20)) then

    print(x**(1/3))

  else if(x>20) then print((sin(x)**2)/2);

end.

Answer 2

begin

 var x := ReadReal('x=');

 var y: real;

 if x <= -4 then

   y := 0

 else if x <= 6 then

   y := Sqr(Sin(x))

 else if x <= 20 then

   y := x ** (1 / 3)

 else

   y := Sqr(Sin(x)) / 2;

 Println(y);

end.

-----------

x= 19.8

2.70533922899524