Question

Помогите с информатикой, пожалуйста

Answer 1

Ответ на задачу:

Сработает последние условие.

X = 6;

Y = 0;

Answer 2

1 задача.

x = 6

y = 0

2 задача.

function func(x: Integer): Integer;

begin

   if x <= 0 then

       func := -x

   else if (0 < x) and (x <= 2) then

       func := x

   else if (2 < x) and (x <= 4) then

       func := 4 - x

   else

       func := x - 4;

end;

var

   x, y: Integer;

begin

   readln(x);

   

   y := func(x);

   

   writeln(y);

end.