type jh=set of 0..100;//集合 var n,m,i,u,v,tj:longint; w:jh; a,f:array[0..100]of boolean; s:array[1..100]of jh; procedure search(dep:longint;w:jh;t:longint);//dep是第几个人，w是总人数 var i:long