计算s.已知 s=10!+7!*8!将n!定义成函数和过程两种方法做

函数方法:
PROGRAM func(input,output);
VAR a,b,c,s:integer;
function fac(n:integer):longint;
var i:integer;
p:longint;
begin
p:=1;
for i:=1 to n do p:=p*i;
fac:=p;
end;
BEGIN
read(a,b,c);
s:=fac(a)+fac(b)*fac(c);
writeln(‘s=‘,s)
END.
过程方法:
PROGRAM proc(input,output);
VAR a,b,c:integer;
s1,s2,s3:longint;
PROCEDURE fac(x:integer;var s:longint);
var i:integer;
begin
s:=1;
for i:=1 to x do s:=s*i
end;
BEGIN
read(a,b,c);
fac(a,s1);
fac(b,s2);
fac(c,s3);
writeln('s=',s1+s2*s3)
END.