Question

Найдите значение выражения (Pascal ABC) В виде программы

Answer 1

var

   x, y: Double;

begin

   Read(x);

   

   if x < -3 then

       y := (5 * x) / (17 - x)

   else if x < 0 then

       y := sqr (3 - 2 * x)

   else

       y := 2 + x;

   

   WriteLn(y)

end.