Question

ОЧЕНЬ ПРОШУ ПОМОГИТЕ
Допишите программу в Pascal и определите значения переменной x после выполнения программы. Запишите чему равен x.

a := 2;

x := a+2;

if x > 4 then

x := x+2*a

else x:= a-x;

Answer 1

var x,a: integer;

begin

a := 2;

x := a+2;

if x > 4 then

x := x+2*a

else x:= a-x;

writeln('x=',x)

end.

ответ: x=-2