编程求 s=2!+4!+6!...+10!

QBASIC：
cls
for i=2 to 10 step 2
n=1
for j=2 to i
n=n*j
next j
s=s+n
next i
print s
end

PASCAL：
var
s,i,j,n:integer;
begin
repeat until(i=12);
begin
n:=1
i:=i+2;
for j:=2 to i do
n:=n*j;
s:=s+n;
end;
writeln(s);
end.

C:
#include<stdio.h>
void main()
{
unsigned i,j,n,s;
s=0;
for(i=2;i<=10;i+=2)
{
n=1;
for(j=2;j<=i;j++)
n*=j;
s=s+n;
}
printf("%u\n",s);
}

s=0
for i=2 to 10 step 2
m=1
for j=1 to i
m=m*i
next
s=s+m
next
我写的是啥语言忘了。在概就是这样的.