给定源程序的功能是:计算s=1! 2! …… k!。

给定源程序的功能是:计算s=1! 2! …… k!。

这需要用到高精度乘法和加法。
以下是Pascal语言实现的代码：
type
ta=record
c:array[1..100]of integer;
l:integer;
end;
var
s:array[1..50]of ta;
i,n,j:integer;
begin
readln(n);
s[1].c[1]:=1;
s[1].l:=1;
for i:=2 to n do
begin
for j:=1 to s[i-1].l do
s[i].c[j]:=s[i-1].c[j]*i;
j:=1;
while (s[i].c[j]>0)or(j<=s[i-1].l) do
begin
if s[i].c[j]>=10 then
begin
inc(s[i].c[j+1],s[i].c[j] div 10);
s[i].c[j]:=s[i].c[j] mod 10;
end;
inc(j);
end;
dec(j);
s[i].l:=j;
end;
for i:=2 to n do
begin
for j:=1 to s[i-1].l do
begin
inc(s[i].c[j],s[i-1].c[j]);
if s[i].c[j]>=10 then
begin
inc(s[i].c[j+1]);
s[i].c[j]:=s[i].c[j] mod 10;
end;
end;
if s[i].c[s[i].l+1]>0 then inc(s[i].l);
end;
for i:=s[n].l downto 1 do
write(s[n].c[i]);
writeln;
readln()
end.
样例输入：
10
样例输出：
4037913
如有错误，请多原谅。

svg.append("path")
.datum(topojson.mesh(uk, uk.objects.subunits, function(a, b) { return a === b && a.id === "IRL"; }))
.attr("d", path)
.attr("class", "subunit-boundary IRL").