Question

编程题目 S:=1+1/2!+1/3！+......+1/100!（Pascal语言）

S:=1+1/2!+1/3！+......+1/100!

Answer 1

var s,x:double; i:integer;
begin
s:=0; x:=1;
for i:=1 to 100 do
begin
x:=x*i;
s:=s+1/x;
end;
writeln(x:0:10);
end.

追问

double我们还没学过能换成别的吗

追答

用real也成啊。