Question

Постройте таблицу значений переменных x и y на каждом шаге цикла и определите, значение переменных x и y
после выполнения фрагмента программы:

x:= 1;

y:= 1;

while x < 5 do

begin

y:=y*2

x:=x+1

end;​

Answer 1

Ответ:

Объяснение:

x 1  2  3  4  5

y 1  2  4  8  16

Answer 2

begin

 var (x, y) := (1, 1);

 $'Перед циклом: x={x}, y={y}'.Println;

 while x < 5 do

 begin

   $'Условие x < 5: {x < 5}'.Println;

   y := y * 2;

   x := x + 1;

   $'x={x}, y={y}'.Println

 end

end.

Перед циклом: x=1, y=1

Условие x < 5: True

x=2, y=2

Условие x < 5: True

x=3, y=4

Условие x < 5: True

x=4, y=8

Условие x < 5: True

x=5, y=16