Question

Определите значение переменной y после выполнения следующего фрагмента программы:
х:=25;у:=-20;
while x*y<0 do
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
    x:=x-5;
    y:=y+2
  end;
  writeln('x=',x,' y=',y);
end.

// x = 0
// y = -10