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

Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

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

1. Определить значение переменной у после выполнения следующих фрагментов программы: a) у : = 1; for i : = 1 to 5 do begin у : = у + 1; у : = у + i; end; b) y : = 0; for k : = 2 to 6 do у : = у + k; c) у : = 1; for k : = 3 to 5 do у : = у * k;

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;

Program2. pas (29) : Нельзя преобразовать тип function (x: real; eps: real) : real к real var a, i, s, r, j, t, x, eps: real; function v (x, eps: real) : real; begin i : = 1; s : = 0; a : = 1; t : = 1; r : = 1;