用turbo pascal 求e=1+1/2!+1/3!^1/n!

var e:real;
n,i:longint;
function xx(a:longint):real;
var j:longint;
s:real;
begin
s:=1;
for j:=1 to a do s:=s/j;
xx:=s;
end;

begin
readln(n);
e:=0;
for i:=1 to n do
e:=e+xx(i);
writeln(e:0:10);
end.

补充：楼主，无理数e=1+1/1！+1/2！……+1/n!.
你的方法算出来的结果是1.7……，
而e=2.7……；
如果你要的答案为二点几的，把readln(n);
下的e:=0;改成e:=1;就OK了。