|
ゴンとも |
|
十進basic で1回から10回までをそれぞれa,b,c,d,e,f,g,h,i,j,失敗を0,成功を1として
FOR a=0 TO 1 for b=0 to 1 for c=0 to 1 IF a+b+c=3 THEN LET s1=s1+1 for d=0 to 1 IF a+b+c<>3 AND b+c+d=3 THEN LET s2=s2+1 for e=0 to 1 IF a+b+c<>3 AND b+c+d<>3 AND c+d+e=3 THEN LET s3=s3+1 for f=0 to 1 IF a+b+c<>3 AND b+c+d<>3 AND c+d+e<>3 AND d+e+f=3 THEN LET s4=s4+1 for g=0 to 1 IF a+b+c<>3 AND b+c+d<>3 AND c+d+e<>3 AND d+e+f<>3 AND e+f+g=3 THEN LET s5=s5+1 for h=0 to 1 IF a+b+c<>3 AND b+c+d<>3 AND c+d+e<>3 AND d+e+f<>3 AND e+f+g<>3 AND f+g+h=3 THEN LET s6=s6+1 for i=0 to 1 IF a+b+c<>3 AND b+c+d<>3 AND c+d+e<>3 AND d+e+f<>3 AND e+f+g<>3 AND f+g+h<>3 AND g+h+i=3 THEN LET s7=s7+1 FOR j=0 TO 1 IF a+b+c<>3 AND b+c+d<>3 AND c+d+e<>3 AND d+e+f<>3 AND e+f+g<>3 AND f+g+h<>3 AND g+h+i<>3 AND h+i+j=3 THEN LET s8=s8+1 10 next j 20 next i 30 next h 40 next g 50 next f 60 next e 70 next d 80 next c 90 next b 100 next a PRINT s1;"+";s2;"+";s3;"+";s4;"+";s5;"+";s6;"+";s7;"+";s8;"=";s1+s2+s3+s4+s5+s6+s7+s8 end f9押して 1+1+2+4+7+13+24+44=96・・・・・・(答え) 確かにトリボナッチ数列になってますね。 |
|
豊川市
5月14日（木） 0:50:08
MAIL:fttnm528@ybb.ne.jp 43266 |