# k включать в решение.

k включать в решение. Для этого следует просмотреть столбец с номером k матрицы A* и проверить, нет ли совпадений единичных элементов со значением true соответствующих элементов массива R. function Cross(k:integer):boolean; {пересечение столбца с частичным решением, сформированным ранее} var j:integer; begin j:=1; while (j&lt;=N) and Not(R[j] and (A*[j,k]=1)) do Inc(j); if j=N+1 then Cross:=true else Cross:=false; end;{Cross} Заключительная логика поиска (Find) имеет в качестве параметров номер блока (строки матрицы Bl) - переменная bloc и номер позиции в строке. Первый вызов - Find(1,1). procedure Find(bloc,jnd:integer); {переменные глобальные} begin if Result then begin if P&lt;Pbetter then begin Pbetter:=P; Sbetter:=S; end; end else if Bl[bloc,jnd]=0 then exit else if Cross(Bl[bloc,jnd]) then begin Include(Bl[bloc,jnd]); Find(bloc+1,1); Exclude(Bl[bloc,jnd]); end else if

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