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

Pshukova    1   08.06.2019 10:40    45