1!+2!+4!+6!用pascal语言怎么表示

用函数.
var s:integer;
function f(x:integer):integer;
var a,t:integer;
begin t:=1;
for a:= 1 to x do t:=t*a;
f:=t;
end;
begin
s:=f(1)+f(2)+f(4)+f(6);
writeln(S);
end.

pascal里没有阶乘，你用1*2*3*4*5……吧
就是
1+1*2+1*2*3*4+1*2*3*4*5*6

开一个数组存放个个数的阶乘，可以用递推实现，用longint不够就用高精。