過去ログ

???

次のプログラムにすると、少しは速いかな。試していないけど。
LET KOTAE=0
FOR A=1 TO 9
FOR B=1 TO 9
IF A<>B THEN
FOR C=1 TO 9
IF A<>C AND B<>C THEN
FOR D=1 TO 9
IF A<>D AND B<>D AND C<>D THEN
FOR E=3-MOD(A+B+C+D,3) TO 9 STEP 3
IF A<>E AND B<>E AND C<>E AND D<>E THEN
LET KOTAE=KOTAE+1
PRINT KOTAE;A;B;C;D;E
END IF
NEXT E
END IF
NEXT D
END IF
NEXT C
END IF
NEXT B
NEXT A
END

　　 4月7日（木） 12:14:21　　　　24854

過去問題一覧へ戻る