搜索+打点type ar=array[0..25] of integer;var arr:ar;i,j,n,p,q,ans:longint;function ok(x,y:integer):boolean;var k,m,i:integer;begin k:=abs(x-y); for i:=1 to p-1 do begin if arr[

P1019 单词接龙var a:array[1..21] of string; b:array[1..21] of integer;i,n,x,max:longint; ch:char;function min(a,b:longint):longint;begin if a>b then exit(b) else exit(a);end;function f(a,b:str