Question

ОЧЕНЬ СРОЧНО! ПОМОГИТЕ ПОЖАЛУЙСТА

Answer 1

Ответ:

x будет равен 3........

Answer 2

Ответ:

var x,y: integer;

begin

x:=1;

y:=8;

while y<>2 do

begin

y:=y-x;

x:=x+1

end;

write(x)

end.