Cоставить программу вычисления следующих выражений: S=1/1i+1/2i+1/3i+...+1/ni.помогите...

Question

Cоставить программу вычисления следующих выражений:
S=1/1i+1/2i+1/3i+...+1/ni.

помогите пж срочно щас надо

Comments

i это факториал?

---

обычно он обозначается знаком !

---

да

---

помогите срочно надо

Answer 1

Function f(x: integer): real;
begin
if x=0 then f:=1 else f:=x*f(x-1);
end;
var n,i: integer;
sum: real;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+1/f(i);
write(sum);
end.

Comments

отдуши пасиб большое