Написать ДВЕ программы ** паскале. (Вычисления функции)

Question

Написать ДВЕ программы на паскале. (Вычисления функции)

Answer 1

Код ниже (также можете свериться со скриншотами):

№1:

var x,y: real;

begin

   write('x = ');

   read(x);

   if (x < 5) then

   begin

       y:= sqrt(x+25);

   end;

   if (x = 5) then

   begin

       y:= 500;

   end;

   if (x > 5) then

   begin

       y:= (x/4);

   end;

   writeln('y = ',y:2:2);

end.

№2:

var x,y: real;

begin

   write('x = ');

   read(x);

   if (x < -1) then

   begin

       y:= x+2;

   end;

   if ((x >= -1) and (x < 5)) then

   begin

       y:= sqr(x+2);

   end;

   writeln('y = ',y:0:0);

end.

Answer 2

// PascalABC.NET

begin

   var x := ReadReal;

   var y := x < 5 ? Sqrt(x + 25) : x = 5 ? 500.0 : x / 4;

   Print(y)

end.

begin

   var x := ReadReal;

   var y := x < -1 ? x + 2 : Sqr(x + 2);

   Print(y)

end.