Question

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;

Answer 1

f=1,5
1)f=1+1/2
i=1
2)i=1-остановка программы.