bzoj1197

水题，画个图推一下低维的就什么都明白了

从低维类推高维

var f:array[0..16,0..101] of int64;
    n,m,j,i:longint;

begin
  readln(m,n);
  for i:=1 to n do
    f[i,1]:=2;
  for i:=1 to m do
    f[1,i]:=2*i;
  for i:=2 to n do
    for j:=2 to m do
      f[i,j]:=f[i,j-1]+f[i-1,j-1];
  writeln(f[n,m]);
end.