裸的强连通 ; type node=record f,t:longint; end; var n,m,dgr,i,u,v,num,ans:longint; bfsdgr,low,head,f:array[..maxe] of longint; b:array[..maxe] of node; p:array[..maxe] of boolean; procedure insert(u,v:longint); begin with b[i] do begin f:=head[u]; t:=v; e…