◆広島県 清川 育男 さんからのプログラム。
【問題７】REM 連環の和（１〜１９）
LET Z=0
FOR A=1 TO 19
FOR C=1 TO 19
IF C<>A THEN
LET B=A+C
IF B<20 THEN
FOR E=1 TO 19
IF E<>A AND E<>B AND E<>C THEN
LET D=C+E
IF D<20 AND D<>A AND D<>B THEN
FOR G=1 TO 19
IF G<>A AND G<>B AND G<>C AND G<>D AND G<>E THEN
LET F=E+G
IF F<20 AND F<>A AND F<>B AND F<>C AND F<>D THEN
FOR I=1 TO 19
IF I<>A AND I<>B AND I<>C AND I<>D AND I<>E AND I<>F AND I<>G THEN
LET H=G+I
IF H<20 AND H<>A AND H<>B AND H<>C AND H<>D AND H<>E AND H<>F THEN
FOR K=1 TO 19
IF K<>A AND K<>B AND K<>C AND K<>D AND K<>E AND K<>F AND K<>G AND K<>H AND K<>I THEN
LET J=I+K
IF J<20 AND J<>A AND J<>B AND J<>C AND J<>D AND J<>E AND J<>F AND J<>G AND J<>H THEN
FOR M=1 TO 19
IF M<>A AND M<>B AND M<>C AND M<>D AND M<>E AND M<>F AND M<>G AND M<>H AND M<>I AND M<>J AND M<>K THEN
LET L=K+M
IF L<20 AND L<>A AND L<>B AND L<>C AND L<>D AND L<>E AND L<>F AND L<>G AND L<>H AND L<>I AND L<>J THEN
FOR O=1 TO 19
IF O<>A AND O<>B AND O<>C AND O<>D AND O<>E AND O<>F AND O<>G AND O<>H AND O<>I AND O<>J AND O<>K AND O<>L AND O<>M THEN
LET N=M+O
IF N<20 AND N<>A AND N<>B AND N<>C AND N<>D AND N<>E AND N<>F AND N<>G AND N<>H AND N<>I AND N<>J AND N<>K AND N<>L THEN
FOR Q=1 TO 19
IF Q<>A AND Q<>B AND Q<>C AND Q<>D AND Q<>E AND Q<>F AND Q<>G AND Q<>H AND Q<>I AND Q<>J AND Q<>K AND Q<>L AND Q<>M AND Q<>N AND Q<>O THEN
LET P=O+Q
IF P<20 AND P<>A AND P<>B AND P<>C AND P<>D AND P<>E AND P<>F AND P<>G AND P<>H AND P<>I AND P<>J AND P<>K AND P<>L AND P<>M AND P<>N THEN
FOR S=1 TO 19
IF S<>A AND S<>B AND S<>C AND S<>D AND S<>E AND S<>F AND S<>G AND S<>H AND S<>I AND S<>J AND S<>K AND S<>L AND S<>M AND S<>N AND S<>O AND S<>P AND S<>Q THEN
LET R=Q+S
IF R<20 AND R<>A AND R<>B AND R<>C AND R<>D AND R<>E AND R<>F AND R<>G AND R<>H AND R<>I AND R<>J AND R<>K AND R<>L AND R<>M AND R<>N AND R<>O AND R<>P THEN
LET Z=Z+1
PRINT USING "#####":Z;
PRINT ") ";
PRINT USING "###":A;
PRINT USING "###":B;
PRINT USING "###":C;
PRINT USING "###":D;
PRINT USING "###":E;
PRINT USING "###":F;
PRINT USING "###":G;
PRINT USING "###":H;
PRINT USING "###":I;
PRINT USING "###":J;
PRINT USING "###":K;
PRINT USING "###":L;
PRINT USING "###":M;
PRINT USING "###":N;
PRINT USING "###":O;
PRINT USING "###":P;
PRINT USING "###":Q;
PRINT USING "###":R;
PRINT USING "###":S
END IF
END IF
NEXT S
END IF
END IF
NEXT Q
END IF
END IF
NEXT O
END IF
END IF
NEXT M
END IF
END IF
NEXT K
END IF
END IF
NEXT I
END IF
END IF
NEXT G
END IF
END IF
NEXT E
END IF
END IF
NEXT C
NEXT A
END