B3. Проанализируйте работу программы. program math; var x, y: integer; begin x:= 1; y:=1; while x<5 do begin y:= y*2; x:= x+1; end; end. 1) Какое значение примет y после завершения программы? 2) Сколько раз исполнится тело цикла, если изменить условие на х>0?

Разберем программу построчно: 1. `x := 1;` и `y := 1;` - инициализация переменных x и y значением 1. 2. `while x < 5 do` - начало цикла, который выполняется, пока x меньше 5. 3. `y := y * 2;` - значение y умножается на 2 на каждой итерации цикла. 4. `x := x + 1;` - значение x увеличивается на 1 на каждой итерации цикла. Проследим за значениями переменных в цикле: * Итерация 1: x = 1, y = 1. `y := 1 * 2 = 2;` `x := 1 + 1 = 2;` * Итерация 2: x = 2, y = 2. `y := 2 * 2 = 4;` `x := 2 + 1 = 3;` * Итерация 3: x = 3, y = 4. `y := 4 * 2 = 8;` `x := 3 + 1 = 4;` * Итерация 4: x = 4, y = 8. `y := 8 * 2 = 16;` `x := 4 + 1 = 5;` После четвертой итерации x становится равным 5, условие `x < 5` больше не выполняется, и цикл завершается. 1) Значение переменной y после завершения программы равно 16. 2) Если изменить условие на `x > 0`, то цикл будет выполняться бесконечно, так как x начинается с 1 и увеличивается на 1 с каждой итерацией, всегда оставаясь больше 0. Однако, если предположить, что речь идет об однократном входе в цикл при начальном x=1, условие x>0 всегда будет истинным, поэтому тело цикла исполнится бесконечное количество раз. Если же рассматривать условие выхода из цикла при переполнении переменной, то формально количество итераций будет зависеть от размера переменной x, но практически это приведет к зависанию программы.