Question

Составьте программу для вычисления функции заданной графиком рисунок 4.27 применяя вложенное или каскаднон ветвление ​

Answer 1

паскаль

var

   x, y: integer;

begin

   write ('x = ');

   readln (x);

   if x > 0 then

       y := x - 2

   else

       if x = 0 then

           y := 0

       else

           y := abs(x);

   writeln ('y = ', y);

end.