Информатика

Ювеналий

17 июля, 03:57

Определить значение переменной у после выполнения следующих фрагментов программы:

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;