不是VIP会员,不能显示答案

题目解答

题目:
program test3;
var
s,i:integer;
function f1(n:integer):integer;
var
j,t:integer;
begin
t:=1;
for j:=n downto 1 do t:=t*j;
f1:=t;
end;{end function}

begin {main}
s:=0;
for i:=1 to 5 do s:=s+f1(i);
writeln('s=',s);
end.

输出:s=153
考点:
分析:
解答:
评论:
老师: