Определить значение переменной у после выполнения следующих фрагментов программы: a) Var у : real; i : integer; у := 1 ; i := 5; while i> 2 do i:= i - 1; y:=y + 1 i; b) Var у : real; i : integer; у := 1 ; i := 2 ; repeat i:= 2 i; y:=y + i until i > 5; c) Var у : real; i : integer; у := 1 ; i := 1; while i< 5 do i:= i+1; y:=y+1 i; d) Var у : real; i : integer; у := 1 ; i := 1; while i > 1 do begin y:=y + 1 / i; i:= I – 1; end; e) Var у : real; i : integer; у := 1 ; i := 5; repeat i:= 2 i; y:=y + i until i > 5; f) Var у : real; i : integer; у := 1 ; i := 1; repeat y:= y + 1 / i; i:= I - 1 until i <= 1;
