编译通过...

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

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

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

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

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

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

.....

为什么啊~

这不是第一个点吗？

10

10

HHHAAAAF..

HFHGGGAFG.

HHHCCCAFGJ

GFACDDAFGJ

GFACDCAFGJ

.FAAEEEF.J

....EDED.J

..IBBBIIIJ

..IBEBEJIJ

..IBBBIII.

type wnkl=record

x,y:longint;

end;

var n,m,i,j,ii:longint;

x,xx:char;

S:STRING;

ru,shang,xia,zuo,you,a:array['A'..'Z'] of longint;

b:array[1..100,1..100]of char;

f:array['A'..'Z','A'..'Z'] of longint;

wn:array['A'..'Z',1..1000]of wnkl;

use,hj:array['A'..'Z']of boolean;

function max(x,y:longint):longint;

begin

if x>y then exit(x) else exit(y);

end;

function min(x,y:longint):longint;

begin

if x