|
ゴンとも |
|
#54441
nの範囲が本問の300を5^7*2^8-1=19999999(1999万9999)までにあげて 1<=n<=19999999で十進Basic で input a print time$ FOR n=1 TO a IF MOD(a,5)<>0 AND MOD(a,2)=0 THEN LET s1=s1+1 IF (MOD(a,5)=0 AND MOD(a,5^2)<>0) AND MOD(a,2^2)=0 THEN LET s2=s2+1 IF (MOD(a,5^2)=0 AND MOD(a,5^3)<>0) AND MOD(a,2^3)=0 THEN LET s3=s3+1 IF (MOD(a,5^3)=0 AND MOD(a,5^4)<>0) AND MOD(a,2^4)=0 THEN LET s4=s4+1 IF (MOD(a,5^4)=0 AND MOD(a,5^5)<>0) AND MOD(a,2^5)=0 THEN LET s5=s5+1 IF (MOD(a,5^5)=0 AND MOD(a,5^6)<>0) AND MOD(a,2^6)=0 THEN LET s6=s6+1 IF (MOD(a,5^6)=0 AND MOD(a,5^7)<>0) AND MOD(a,2^7)=0 THEN LET s7=s7+1 IF (MOD(a,5^7)=0 AND MOD(a,5^8)<>0) AND MOD(a,2^8)=0 THEN LET s8=s8+1 NEXT n PRINT s1;"+";s2;"+";s3;"+";s4;"+";s5;"+";s6;"+";s7;"+";s8;"=";s1+s2+s3+s4+s5+s6+s7+s8 print time$ END 例えばa=12345678 で ? 12345678 14:04:46 4938272 + 493827 + 49383 + 4938 + 494 + 49 + 5 = 5486968 14:05:11 1億9999万9999までのものもでますが1分以上かかってしまうので 途中でやめて1999万9999までで・・・ |
|
豊川市
1月15日（木） 14:15:17
54447 |