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

Question

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

---

Answer 1

x = 29
y = 20


Программа:
var x, y: integer;
begin
x := 13; y := 2;
while y < 12 do
begin
  if y <= x then<br>  begin
    x := x - 3;
    y := y * 2;
  end
  else
  begin
    y := y - 3;
    x := x * y;
  end;
end;
writeln(x,' ', y);
end.