# жителями, включенных

жителями, включенных в парламент} var i,j:Nint;v:Sset; begin r:=[];p:=[]; for i:=1 to t do begin {определяем множество партий представляемых всеми жителями кроме A[i].man} v:=[]; for j:=1 to t do if i&lt;&gt;j then v:=v+A[j].part; {если есть хотя бы одна партия, которую представляет только житель с номером A[i].man, то этого жителя мы обязаны включить в парламент} if A[i].part*v&lt;&gt;A[i].Part then r:=r+[A[i].man]; end; {формируем множество партий, имеющих представительство в данном составе парламента} for i:=1 to t do if A[i].man in r then p:=p+A[i].part; end; Итак, фрагмент предварительной обработки (до перебора). .... t:=N;Rt:=[1..N];Rwork:=[]; One(t,Rt); while Come(t) and (Rt&lt;&gt;[]) do begin Rg:=[];Rp:=[]; Pygmy(t,Rg,Rp); Rt:=Rt-Rp;Rwork:=Rwork+Rg; if Rp&lt;&gt;[] then begin for i:=1 to t do begin{исключение} for j:=1 to N do if (j in Rp) and (j in A[i].part) then A[i]part:=A[i].part-[j];

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа