ПАСКАЛЬ решите пожалуйста!!!

Question

ПАСКАЛЬ решите пожалуйста!!!

---

Answer 1

Var
    i, n: integer;
    a, s: real;

begin
    readln(n);
    a := 1;
    s := a;
    
    for i := 2 to n do
    begin
        a := a * -(i - 1) / i;
        s := s + a;
    end;
    
    writeln(s:10:6);
end.

Comments

Интересная задачка