pascal 求5个数的阶乘

求5个数的阶乘?

你用函数去写 或者用过程去写 也是可以啊
function fact(x:integer):int64
var p:int64;
i:integer;
begin
p:=1;
for  i:=1 to x do p:=p*i
fact:=p;
end;
然后你在写按狃的代码
begin
sum:=0;
for i:=1 to 5 do sum:=sum+fact(i);
panel1.caption:=format('1!+2!+3!+4!+5!=%d',[sum]);
end;