Вычислите S??? S=1/1!+1/2!+1/3!+1/n! напишите пожалуйста программу очень прошу!!!!!!?

Question

Вычислите S???
S=1/1!+1/2!+1/3!+1/n!
напишите пожалуйста программу очень прошу!!!!!!?

Answer 1

Var
s:real;
i,n,f:integer;
begin
readln(n);
s:=0;
f:=1;
for i:=1 to n do
f:=f*i;
for i:=1 to f do
s:=s+(1/i);
writeln(s);end.

Comments

Где факториал ?

---

не заметил

---

сек

---

исправил

---

не то

---

она неверно работает

Answer 2

Vars:double;
n,i:integer;
f:longint;
begin
f:=1;
writeln('Vvedite n');
readln(n);
for i:=1 to n do
begin
f:=f*i;
s:=s+(1/f);
end;
writeln('S = ',s);
end.

Comments

спасибо большое очень выручили!!!!