Question

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

Answer 1

a) y=3
b)y=13
c)y=6
d)y=1
e) y=11
f) y=2