记录编号	72871	评测结果	AAAA
题目名称	w函数	最终得分	100
用户昵称	苏轼	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2013-10-19 14:55:31	内存使用	0.20 MiB

Program sl;
  var
    f:array[0..20,0..20,0..20]of longint;
    i,j,k,n:longint;
  begin
    assign(input,'wwww.in');
    assign(output,'wwww.out');
    reset(input);
    rewrite(output);
    for i:=0 to 20 do
      for j:=0 to 20 do
        f[0,i,j]:=1;
    for i:=0 to 20 do
      for j:=0 to 20 do
        f[i,0,j]:=1;
    for i:=0 to 20 do
      for j:=0 to 20 do
        f[i,j,0]:=1;
    for i:=1 to 20 do
      for j:=1 to 20 do
        for k:=1 to 20 do
          if (i<j)and(j<k) then f[i,j,k]:=f[i,j,k-1]+f[i,j-1,k-1]-f[i,j-1,k]
          else f[i,j,k]:=f[i-1,j,k]+f[i-1,j-1,k]+f[i-1,j,k-1]-f[i-1,j-1,k-1];
    repeat
      read(i,j,k);
      if (i=-1)and(j=-1)and(k=-1) then break;
      if (i<0)or(j<0)or(k<0) then writeln(1)
      else if (i>20)or(j>20)or(k>20) then writeln(f[20,20,20])
           else writeln(f[i,j,k]);
      dec(n);
    until n=0;
    close(input);
    close(output);
  end.