Var f : real ; i : integer; f: = 1; i: =2; while i > 1 do begin f: = f + 1 / i; i : = i...

Question

Var f : real ; i : integer;
f: = 1; i: =2;
while i > 1 do begin
f: = f + 1 / i;
i : = i -1;
end;

Comments

что с этим делать?

---

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

Answer 1

Var f : real ; i : integer;
f: = 1; i: =2;
while i > 1 do begin 
f: = f + 1 / i; 
i : = i -1; 
end;
Write(f:0:3);
end.
Ошибка в том,что нет окончания.