记录编号	49625	评测结果	AAAAAAAAAA
题目名称	K 上升段	最终得分	100
用户昵称	天下第一的吃货殿下	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2012-11-08 17:53:28	内存使用	0.17 MiB

var
 a,b,c,d,e,n,k:longint;
 dp:array[0..20,0..20] of qword;
  function min(xx,yy:qword):qword;
       begin
          if xx>yy then exit(yy)
           else exit(xx);
  end;
   begin
    assign(input,'k.in');
     reset(input);
      assign(output,'k.out');
       rewrite(output);
    readln(n,k);
     for a:=1 to n do
      dp[a,1]:=1;
      for a:=1 to n do
        for b:=2 to min(a,k) do
          dp[a,b]:=dp[a-1,b-1]*(a-b+1)+dp[a-1,b]*b;
          writeln(dp[n,k]);
   close(input);
    close(output);
 end.