比赛代码 - COGS

比赛	20121108	评测结果	AAAAAAAAAA
题目名称	K 上升段	最终得分	100
用户昵称	DMC_DY	运行时间	0.002 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-11-08 11:11:00

显示代码纯文本

var n,k,i,j,l:longint; f:array[0..20,0..20]of qword;
begin
assign(input,'k.in'); assign(output,'k.out'); reset(input); rewrite(output);
 readln(n,k); for i:=1 to n do begin  f[i,i]:=1; f[i,1]:=1; end;
 for i:=1 to n do
  for j:=2 to i-1 do
     begin
      f[i,j]:=f[i-1,j]*j+f[i-1,j-1]*(i-j+1);
     end;
 write(f[n,k]);
close(input); close(output);
end.