Напишите программу(в Паскаль) нахождения суммы S=1+1/2+1/3+...1/n, где n - натуральное...

Question

Напишите программу(в Паскаль) нахождения суммы S=1+1/2+1/3+...1/n, где n - натуральное число.

Answer 1

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  Writeln(SeqGen(ReadInteger('n='),x->1/x,1).Sum)
end.

Тестовое решение:
n= 20
3.59773965714368

Answer 2

Var n,s:real;
begin
    readln(n);
    s:=1;    
    for var i:=2 to n do s:=s+1/i;
    writeln('s=',s);
end.