Какое число будет выведено на мониторе после выполнения данного фрагмента программы x := 1
y := x-4
for i := 1 to 4 do begin
if y < 2 then x := x+4 else x:= x+2;
if x < 8 then y:= y+1 else y := y-1;
end.
y := y+x;
writeln (y);​

12

Объяснение:

Вероятно это на Pascal. Если исправить в программе ошибки, то она может выглядеть так:

var x,y,i: integer;

begin

x := 1;

y := x-4;

for i := 1 to 4 do  

   begin

       if y < 2 then x := x+4 else x:= x+2;

       if x < 8 then y:= y+1 else y := y-1;

   end;

y := y+x;

writeln (y);

end.

Итак, значения i меняются от 1 до 4

i = 1, x= 1, y = x-4 = -3, и поскольку y < 2 TRUE тогда x = x + 4 = 1 + 4 = 5

поскольку x < 8 TRUE, то y = y + 1 = -3 + 1 = -2

i = 2, x = 5, y = -2 и поскольку y < 2 TRUE, то x = x + 4 = 5 + 4 = 9

поскольку x < 8 FALSE, y = y - 1 = -2 -1 = -3

i = 3, x = 9, y =- 3 и поскольку y < 2 TRUE, то х = х + 4 = 9 + 4 = 13

поскольку x < 8 FALSE, y=y-1 = -3 - 1 = -4

i = 4, x = 9, y = -4  и поскольку y < 2 TRUE, то х = х + 4 = 13 + 4 = 17

поскольку x < 8 FALSE, y=y-1 = -4 - 1 = -5

y = y + x = -5 + 17 = 12

выводим 12, конец программы

ЗЫ: когда задаете вопрос по программированию, стоит указать язык программирования, так всем будет проще