比赛代码 - COGS

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

显示代码纯文本

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