ac1039.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 21 行

program tju1039;
const
  maxn=50;
var
  ans:array[0..maxn,2..5]of qword;
  n,m:byte;
begin
  for m:=2 to 5 do begin
    ans[0,m]:=1;
    for n:=1 to m-1 do
      ans[n,m]:=ans[n-1,m]*2;
    ans[m,m]:=ans[m-1,m]*2-1;
    for n:=m+1 to maxn do
      ans[n,m]:=ans[n-1,m]*2-ans[n-m-1,m];
  end;
  repeat
    read(n,m);
    writeln(ans[n,m]);
  until seekeof;
end.