Определить значение переменной у после выполнения следующих фрагментов программы: 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;
b)y=13
c)y=6
d)y=1
e) y=11
f) y=2