用函数求3！+4！+5！+14！的值。

我们把1*2*3*4*5*6，称作6的阶乘，记为6！。写一个自定义函数求N！，调用这个函数求出3！+4！+5！+14！的值。

梁健峰
var c,d:integer; 
function hs(z:integer):integer;
begin 
  d:=1;
  for c:=2 to z do 
  d:=d*c;
  hs:=d;
end; 
begin
  writeln(hs(3)+hs(4)+hs(5)+hs(14)); 
end.

2011-11-17  14:21

气死你
var a:integer;
function sz(c:integer):integer; 
var e,f,g,h:integer;
begin 
  e:=1;
  for f:=1 to c do 
    e:=e*f;
  sz:=e;
end; 
begin
  a:=sz(3)+sz(4)+sz(5)+sz(14); 
  writeln(a);
end.

2011-11-23  14:17

棒棒糖
var a,b:integer;
function s(a,b:integer):integer; 
begin
  for a:=1 to b do b:=b*a; 
  s:=b;
end;
begin 
  a:=s(b,3)+s(b,4)+s(b,5)+s(b,14); 
  writeln(a);
end.

2011-11-29  07:56

棒棒糖

var a:integer;
function s(a,b:integer):integer; 
begin
  s:=1; 
  for a:=1 to b do s:=s*a;
end; 
begin
  a:=s(3)+s(4)+s(5)+s(14); 
  writeln(a);
end.

2011-12-6  08:00