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;
F=1,5 1)f=1+1/2 i=1 2)i=1-остановка программы.