编译通过...

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

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

├ 测试数据 03：答案错误...程序输出比正确答案长

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

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

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

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

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

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

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

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

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

program t1;

const

dx:array[1..8]of integer=(2,2,1,-1,-2,-2,-1,1);

dy:array[1..8]of integer=(1,-1,-2,-2,-1,1,2,2);

var

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

n,m:longint;

ai,bi,i,j,aa,bb:longint;

begin

readln(m,n,ai,bi);

fillchar(f,sizeof(f),0);

for i:=1 to 8 do

begin

aa:=ai+dx[i];

bb:=bi+dy[i];

if (aa>=0)and(aa=0)and(bb