Question

1!+2!+3!+4!+5!+6!+7!+8!+9!+10!的和是多少？

用pascal语言来编程

Answer 1

var
i,j,s,t : longint ;
begin
s := 0 ;
for i := 1 to 10 do begin
t := 1 ;
for j := 1 to i do t := t * j ;
s := s + t ;
end ;
writeln('The anwser is =',s) ;
end .

Answer 2

手打的 将就着看看 理解下思路

预处理
a[1]:=1;
for i:=2 to 10 do
a[i]:=a[i-1]*i;
这样a[i]就是 i ! 了
然后for i:=1 to 10 do
sum:=sum+a[i];