Это воторая часть помогите пожалуйста​

Question

Это воторая часть помогите пожалуйста​

---

Answer 1

Задание 6

1. var
2.  x, v, k: integer;
3. begin
4.  Readln(x);
5.  v := 8 - 2 * x;
6.  if v < 12 then
7.    k := x - 4
8.  else
9.    k := 5 + x;
10.  Writeln(k);
11. end.

При x = 3 переменная k = -1

Задание 7

1. if x > 3 then
2.  y := x + 2;
3. if x < -2 then
4.  y := x * x - 4
5. else
6.  y := 6;

Задание 8

1. if (x > -1) and (x

Непонятно, что требуется, но, допустим, если ввести 5, то условие выполнится.

Задание 9

1. var
2.  x, y: integer;
3. begin
4.  Readln(x, y);
5.  if (x < 0) and (y < 0) and (x > y) then
6.    x := x + 4
7.  else
8.    x := x * 4;
9. end.

Comments

спасибо большое тебе, ты лучший, а если не трудно можешь на первыую часть ответить