PRINT
PRINT "1:"
FOR a=0 TO 1
   PRINT a
NEXT a
PRINT "⇒  2 とおり"


LET z=0
PRINT
PRINT "2:"
FOR a=0 TO 1
   FOR b=0 TO 1
      IF a*b=O THEN
         LET Z=Z+1
         PRINT a;b
      END IF
   NEXT b
NEXT a
PRINT "⇒ ";Z;"とおり"

LET Z=0
PRINT
PRINT "3:"
FOR a=0 TO 1
   FOR b=0 TO 1
      FOR c=0 TO 1
         IF a*b=0 AND b*c=0 THEN
            LET Z=Z+1
            PRINT a;b;c
         END IF
      NEXT c
   NEXT b
NEXT a
PRINT "⇒ ";Z;"とおり"

LET Z=0
PRINT
PRINT "4:"
FOR a=0 TO 1
   FOR b=0 TO 1
      FOR c=0 TO 1
         FOR d=0 TO 1
            IF a*b=0 AND b*c=0 AND c*d=0 THEN
               LET Z=Z+1
               PRINT a;b;c;d
            END IF
         NEXT d
      NEXT c
   NEXT b
NEXT a
PRINT "⇒ ";Z;"とおり"

LET Z=0
PRINT
PRINT "5:"
FOR a=0 TO 1
   FOR b=0 TO 1
      FOR c=0 TO 1
         FOR d=0 TO 1
            FOR e=0 TO 1
               IF a*b=0 AND b*c=0 AND c*d=0 AND d*e=0 THEN
                  LET Z=Z+1
                  PRINT a;b;c;d;e
               END IF 
            NEXT e
         NEXT d
      NEXT c
   NEXT b
NEXT a
PRINT "⇒ ";Z;"とおり"

LET Z=0
PRINT
PRINT "6:"
FOR a=0 TO 1
   FOR b=0 TO 1
      FOR c=0 TO 1
         FOR d=0 TO 1
            FOR e=0 TO 1
               FOR F=0 TO 1
                  IF a*b=0 AND b*c=0 AND c*d=0 AND d*e=0 AND e*f=O THEN
                     LET Z=Z+1
                     PRINT a;b;c;d;e;f
                  END IF
               NEXT f
            NEXT e
         NEXT d
      NEXT c
   NEXT b
NEXT a
PRINT "⇒ ";Z;"とおり"
END