编写程序计算s=1+1/2!+1/3!+1/4!...+1/n!.n由终端输入,将计算n!定义成函数.（要求定义函数sum求和,在函数sum中调用n!的函数求加数.）求,考试题,要直接可以写在卷子上的那种.自己一点不懂.可以再加分的
网友回答
vars:real;
n:longint;
function jc(x:longint):longint;
vari:longint;
beginjc:=1;
for i:=2 to x do
jc:=jc*i;
end;function sum:real;
vari:longint;
beginsum:=0;
for i:=1 to n do
sum:=sum+1/js(i);
end;beginreadln(n);
s:=sum;
writeln(s);
end.