用编程（pascal)解：！！急！！

program foo;
var
i:integer;
s:real;
function fac(n:integer):integer;
begin
if n=1 then fac:=1
else fac:=fac(n-1)*n;
end;
begin
s:=0;
for I := 1 to 4 do
s:=s+1/fac(2*i);
writeln(s);
end.

var a:array[1..8]of integer;
i:integer;
begin
for i:=1 to 8 do
a[i]:=1;
for i:=2 to 8 do
a[i]:=a[i-1]*i;
writeln(a[2]+a[4]+a[6]+a[8]);
end.

begin
writeln(1/2+1/24+1/40320:0:11); readln;
end.

begin
writeln(2433/4480);
end.

var
i,j:longint;
s:double;
begin
s:=0;j:=1;
for i:=1 to 8 do begin
j:=j*i;
if i mod 2=0 then s:=s+(1/j);
end;
writeln(s:0:3);//保留三位小数
end.