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

Найти значение переменной у после исполнения следующих фрагментов программы:
a) Var у : real; i : integer; у := 1 ; i := 5; while igt; 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 gt; 5;
c) Var у : real; i : integer; у := 1 ; i := 1; while ilt; 5 do i:= i+1; y:=y+1 * i;
d) Var у : real; i : integer; у := 1 ; i := 1; while i gt; 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 gt; 5;
f) Var у : real; i : integer; у := 1 ; i := 1; repeat y:= y + 1 / i; i:= I - 1 until i lt;= 1;

Olja Sukonnaja 2019-07-28 12:21:49

Pascal в Help