Вычислить: S=1+1/2+1/3+...+1/17

Question

Вычислить: S=1+1/2+1/3+...+1/17

Answer 1

Var
  s: real;
  b: byte;

begin
  for b := 1 to 17 do
    s += 1 / b;
  writeln(s);
end.


3.43955...