Допишите программу в Pascal и определите значения переменной x после выполнения программы. Запишите на листочке чему равен x.
a := 2;
x := a+2;
if x > 4 then
x := x+2*a
else x:= a-x;

var a,x: integer;

begin

a:=2;

x:=a+2;

if x>4 then x:=x+2*a

else x:=a-x

x:=-2

Объяснение:

x не больше 4, х=4 поэтому выполняется 2 условия х=а-х. ответ -2

1) найти убыль как к-во * 12%

2) найти прирост как к-во * 20%

3) к-во = к-во-убыль+прирост

выполнить 8 раз

var

x,a,b: real;

i: integer;

begin

x: =100000;

for i: =1 to 8 do

begin

a: =x*0.12;

b: =x*0.20;

x: =x+b-a;

end;

writeln(x);

end.

program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.