|
ゴンとも |
|
#51653
15通りが満たしているかどうか以下に変更 FOR a=1 TO 1000 FOR b=1 TO 900 IF MOD(b,10)=0 THEN GOTO 10 IF 9/a<>b/100 THEN GOTO 10 LET s=s+1 PRINT "No";s;"//";a;",";b 10 NEXT b NEXT a END f9押して No 1 // 4 , 225 No 2 // 12 , 75 No 3 // 20 , 45 No 4 // 25 , 36 No 5 // 36 , 25 No 6 // 50 , 18 No 7 // 60 , 15 No 8 // 75 , 12 No 9 // 100 , 9 No 10 // 150 , 6 No 11 // 180 , 5 No 12 // 225 , 4 No 13 // 300 , 3 No 14 // 450 , 2 No 15 // 900 , 1 |
|
豊川市
6月30日（木） 0:52:54
MAIL:fttnm528@ybb.ne.jp 51654 |