|
ゴンとも |
|
トーナメント表を7人をa,b,c,d,e,f,g
試合をs1,・・・,s21として以下の表で (**0)(**a)(**b)(**c)(**d)(**e)(**f)(**g) (**a)(***)(s01)(s02)(s03)(s04)(s05)(s06) (**b)(***)(***)(s07)(s08)(s09)(s10)(s11) (**c)(***)(***)(***)(s12)(s13)(s14)(s15) (**d)(***)(***)(***)(***)(s16)(s17)(s18) (**e)(***)(***)(***)(***)(***)(s19)(s20) (**f)(***)(***)(***)(***)(***)(***)(s21) (**g)(***)(***)(***)(***)(***)(***)(***) 十進basic で for s1=0 to 1 for s2=0 to 1 for s3=0 to 1 for s4=0 to 1 for s5=0 to 1 for s6=0 to 1 if s1+s2+s3+s4+s5+s6<>2 then goto 60 for s7=0 to 1 for s8=0 to 1 for s9=0 to 1 for s10=0 to 1 for s11=0 to 1 if s1+s7+s8+s9+s10+s11<>2 then goto 50 for s12=0 to 1 for s13=0 to 1 for s14=0 to 1 for s15=0 to 1 if s2+s7+s12+s13+s14+s15<>2 then goto 40 for s16=0 to 1 for s17=0 to 1 for s18=0 to 1 if s3+s8+s12+s16+s17+s18<>2 then goto 30 for s19=0 to 1 for s20=0 to 1 if s4+s9+s13+s16+s19+s20<>2 then goto 20 for s21=0 to 1 if s5+s10+s14+s17+s19+s21<>2 then goto 10 if s6+s11+s15+s18+s20+s21<>2 then goto 10 let u=u+1 10 next s21 20 next s20 next s19 30 next s18 next s17 next s16 40 next s15 next s14 next s13 next s12 50 next s11 next s10 next s9 next s8 next s7 60 next s6 next s5 next s4 next s3 next s2 next s1 print u end f9 押して 465・・・・・・(答え) |
|
豊川市
4月10日（木） 1:54:28
MAIL:fttnm528@ybb.ne.jp 41641 |