|
ゴンとも |
|
図にア=1,イ=2,ウ=3,エ=4,オ=5,カ=6,キ=7,ク=8,ケ=9と番号を振り
三角形の3点をa,b,cとして 十進Basic で for a=1 to 6 for b=a+1 to 8 IF a=1 AND (b<>2 AND b<>4 AND b<>5 AND b<>6 AND b<>8) THEN GOTO 20 IF a=2 AND (b<>3 AND b<>4 AND b<>5 AND b<>6 AND b<>7) THEN GOTO 20 if a=3 and (b<>4 and b<>5 and b<>6 and b<>8) then goto 20 if a=4 and (b<>5 and b<>7 and b<>8) then goto 20 if a=5 and (b<>6 and b<>7 and b<>8) then goto 20 if a=6 and (b<>7 and b<>8) then goto 20 for c=b+1 to 9 IF a=1 AND (c<>4 AND c<>5 AND c<>6 AND c<>8) THEN GOTO 10 if a=2 and (c<>4 and c<>5 and c<>6 and c<>7 and c<>9) then goto 10 IF a=3 AND (c<>5 AND c<>6 AND c<>8) THEN GOTO 10 if a=4 and (c<>7 and c<>8 and c<>9) then goto 10 IF a=5 AND (c<>7 AND c<>8 AND c<>9) THEN GOTO 10 IF a=6 AND (c<>8 AND c<>9) THEN GOTO 10 IF b=2 AND (c<>3 AND c<>4 AND c<>5 AND c<>6 AND c<>7 AND c<>9) THEN GOTO 10 if b=3 and (c<>4 and c<>5 and c<>6 and c<>8) then goto 10 if b=4 and (c<>5 and c<>7 and c<>8 and c<>9) then goto 10 if b=5 and (c<>6 and c<>7 and c<>8 and c<>9) then goto 10 IF b=6 AND (c<>7 AND c<>8 AND c<>9) THEN GOTO 10 if b=7 and c<>8 then goto 10 if b=8 and c<>9 then goto 10 LET s=s+1 10 NEXT c 20 next b 30 NEXT a PRINT s END f9押して 36・・・・・・(答え) |
|
豊川市
9月22日（木） 2:54:13
MAIL:fttnm528@ybb.ne.jp 45245 |