Определить значение переменной у после выполнения следующих фрагментов программы: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 ; repe...

Определить значение переменной у после выполнения следующих фрагментов программы: 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;