国王放置问题pascal程序

......
noip09做疯啦
不要气馁.....

网上有答案，自己找啦

① 0

② inc(hash[i, j])或者 hash[i][j]:= hash[i][j]+1

③ work(x,y,tot+1)

④ dec(hash[i, j]) 或者 hash[i][j]:= hash[i][j]-1

⑤ work(0,0,0)

① 0

② inc(hash[i, j])或者 hash[i,j]:= hash[i,j]+1

③ work(x,y,tot+1)

④ dec(hash[i, j]) 或者 hash[i,j]:= hash[i,j]-1

⑤ work(0,0,0)
注：②和④只要一个加n，一个减n就行了。