高校问答传颂之物是否有第4部:超简单的PASCAL题
来源：百度文库 编辑：高校问答 时间：2024/04/29 13:24:41
帮忙打出这道题的原程序。超简单的！
现给出一正整数n(n<=12),
试求出1/1!+1/2!+……+1/n!
最终结果四舍五入到两位小数
现给出一正整数n(n<=12),
试求出1/1!+1/2!+……+1/n!
最终结果四舍五入到两位小数
program cjd(input,output);
var
n,i:integer;
k,j:real;
j:=0.0;k:=1.0;
readln(n);
for i:=1 to n do begin
k:=k*i;
j:=j+1/k
end;
j:=trunc(j*100.0+0.5)/100.0;
write(j);
readln
end.