缩点+spfa最短路,因为最终不可能有环,所以直接spfa. ; type node=record f,t:longint; end; var n,m,s,i,j,ans,cnt,num,u,x,dgr:longint; h,he,dfn,low,q,d,v,va,bl:array[..maxe] of longint; b,bi:array[..maxe] of node; f:array[..maxe*] of longint; p:array[..maxe] of boolean; fun…