|
SECOND |
|
! C(9,2) で 機械計算、ごめん
DIM a(9) MAT READ a DATA 1,2,3,4,5,6,7,8,9 CALL comb20(1,1) SUB comb20(k,p) local i IF k<=2 THEN FOR i=p TO 9 swap a(k),a(i) CALL comb20(k+1,i+1) swap a(k),a(i) NEXT i ELSE !--- 個々の組合せ C(9,2) --- LET x$="123456789" LET x$(a(1):a(1))=STR$(a(2)) !x$ の a(1)番とa(2)番の数字とりかえ LET x$(a(2):a(2))=STR$(a(1)) IF MOD( VAL(x$)-123456789, 37)=0 THEN PRINT "! ";x$ END IF END SUB |
|
6月25日（木） 1:09:33
49277 |