Определите значение переменной y после выполнения следующего фрагмента программы:...

Question

Определите значение переменной y после выполнения следующего фрагмента программы:
х:=25;у:=-20;
while x*y<0 do<br> begin
x:=x-5;
y:=y+2
end;

Answer 1

Var x,y:integer;
begin
  x:=25;
  y:=-20;
  while x*y<0 do begin<br>    x:=x-5;
    y:=y+2
  end;
  writeln('x=',x,' y=',y);
end.

// x = 0
// y = -10