ВУЗ:
Составители:
129
370 FOR L2=1 TO 2^N
380 IF (D(L2))<>1 THEN GOTO 480
390 P1=P1+1
400 FOR I=1 TO N
410 S=INT(L/2^(I-1))
420 IF S/2<>(INT(S/2)) THEN T1=1 ELSE T1=0
430 S=INT(L2/2^(I-1))
440 IF S/2<>(INT(S/2)) THEN T2=1 ELSE T2=0
450 IF T2<>T1 THEN O(I,P1)=1 ELSE O(I,P1)=0
460 NEXT I
470 IF P1=Q THEN GOTO 490
480 NEXT L2
490 S1=0
500 FOR I=1 TO Q
510 FOR J=1 TO P
520 FOR R=1 TO N
530 IF (O(R,I)=0) AND (B(R,J)=1) THEN GOTO 550
540 NEXT R:GOTO 580
550 NEXT J
560 S1=S1+1
570 G(S1)=I
580 NEXT I
590 FOR I=1 TO N
600 S=0
610 FOR J=1 TO P
620 S=S+B(I,J)
630 NEXT J
640 B(I,P+1)=S
650 NEXT I
660 FOR M=S1 TO 1 STEP -1
670 FOR I=(2^S1)-1 TO 0 STEP -1
680 M2=0
690 FOR M1=1 TO S1
700 S=INT(I/2^(M1-1))
710 IF S/2=(INT(S/2)) THEN X(M1)=0 ELSE X(M1)=1
720 IF S/2<>(INT(S/2)) THEN M2=M2+1
730 NEXT M1
740 IF M2=M THEN GOTO 770
750 NEXT I
760 NEXT M:GOTO 1040
770 FOR J=1 TO N:O(J,Q+1)=0:NEXT J
780 FOR J=1 TO S1
790 IF X(J)=0 THEN GOTO 830
800 FOR R=1 TO N
