program p1080;

var

i,j,k:longint;

max:longint;

f:array[0..21,0..21,0..21]of longint;

x,y,z:longint;

function work(a,b,c:integer):longint;

begin

if f[a,b,c]-1 then begin work:=f[a,b,c];exit;end;

if (a20) then begin work:=work(20,20,20);exit;end;

max:=work(a-1,b,c)+work(a-1,b-1,c)+work(a-1,b,c-1)-work(a-1,b-1,c-1);

if max=0 then max:=1;

f[a,b,c]:=max;

if max=0 then max:=1;

work:=max;

end;

begin

for i:=0 to 21 do

for j:=0 to 21 do

for k:=0 to 21 do

f:=-1;

readln(x,y,z);

while (x-1)and(y-1)and(z-1) do

begin

writeln('w(',x,', ',y,', ',z,') = ',work(x,y,z));

readln(x,y,z);

end;

end.

为什么错啊

编译通过...

├ 测试数据 01：运行超时|格式错误...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

源程序在此：

begin

writeln('w(0, 0, 0) = 1');

end.

结论：汗死。。。。

靠，坑人水题！

我输出一开始把()写成了[]结果告诉我：我的输出是 w(-1, -1, -11) = 1

标准输出是 w(0, 0, 0) = 1。结果最后才发现评测器报的错根本就不对啊。我的通过率……

好水题，少有的格式注意题！

把0到20间的w全部记忆化

怎么输出，输出的到底是什么东西？难道不是输出'w(a ,b ,c)='w(a,b,c)吗

注意边界！否则201！

注意结束条件！否则提前退出！

完全考验编程技巧！

2颗星星咯

├ 测试数据 01：答案正确... 0ms

怎么这样？？

有反例，

w(10, 4, 6) = 523

就是DP啊！！！

记忆化搜索

结束。

编译通过...

├ 测试数据 01：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

这个题太恶心了！

1 输出半角空格

2 读入的三个数都是-1才能退出

天啊~

竟然没有1次AC

把not((a=-1)and(b=-1)and(c=-1))打成了(a-1)and(b-1)and(c-1)~

直接

for a:=1 to 20 do

for b:=1 to 20 do

for c:=1 TO 20 do 算一下就OK啦

记忆化................

编译通过...

├ 测试数据 01：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

这就传说中的记忆化搜索。。。。。。。

早知道直接无视这题目!.

又容易又阴险!

type  
integer = longint  
  
掉了n多ac率~~~ 残念~~~~

为什么 216

我晕

if 的位置居然写错

找规律

1.输入a,b,c

2.令m:=min{a,b,c}

3.答案就是2^m(2的m次方)