|
ゴンとも |
|
十進Basic で
カードを(表,裏)として(11,a2),(12,b2),(17,c2),(20,d2),(e1,e2)として FOR a2=1 TO 35 IF a2=11 OR a2=12 OR a2=17 OR a2=20 THEN GOTO 60 FOR b2=1 TO 35 IF b2=11 OR b2=12 OR b2=17 OR b2=20 OR b2=a2 OR 11+a2<>12+b2 THEN GOTO 50 FOR c2=1 TO 35 IF c2=11 OR c2=12 OR c2=17 OR c2=20 OR c2=a2 OR c2=b2 OR 12+b2<>17+c2 THEN GOTO 40 FOR d2=1 TO 35 IF d2=11 OR d2=12 OR d2=17 OR d2=20 OR d2=a2 OR d2=b2 OR d2=c2 OR 17+c2<>20+d2 THEN GOTO 30 FOR e1=1 TO 35 IF e1=11 OR e1=12 OR e1=17 OR e1=20 OR e1=a2 OR e1=b2 OR e1=c2 OR e1=d2 THEN GOTO 20 FOR e2=1 TO 35 IF e2=11 OR e2=12 OR e2=17 OR e2=20 OR e2=a2 OR e2=b2 OR e2=c2 OR e2=d2 OR e2=e1 OR 20+d2<>e1+e2 THEN GOTO 10 IF 11+12+17+20+e1=a2+b2+c2+d2+e2 THEN PRINT "(";11;",";a2;"),";"(";12;",";b2;"),";"(";17;",";c2;"),";"(";20;",";c2;"),";"(";e1;",";e2;")" 10 next e2 20 next e1 30 next d2 40 next c2 50 next b2 60 next a2 END f9押して (11,15),(12,14),(17,9),(20,9),(5,21) (11,25),(12,24),(17,19),(20,19),(30,6) (11,27),(12,26),(17,21),(20,21),(35,3) より 5,30,35・・・・・・(答え) |
|
豊川市
3月24日（木） 1:23:45
44311 |