新しく発言する EXIT インデックスへ

世界のナベアツにBASICで挑戦！おもろ〜

　　世界のナベアツにBASICで挑戦！　おもろ〜 山中和義 2008/10/06 22:02:23  (修正1回)
　　└個数を計算する式があるみたいです。 山中和義 2008/10/07 14:22:03 

Re: 世界のナベアツにBASICで挑戦！　おもろ〜	返事を書く ノートメニュー
山中和義 <drdlxujciw> 2008/10/07 14:22:03
個数を計算する式があるみたいです。 !世界のナベアツ - ３の倍数と３の付く数の個数 LET k=5 !桁数 FOR i=1 TO k PRINT "1 から";10^i;"までの範囲は、";10^i-(2/3)*9^i-1;"個です。" NEXT i DIM c(k) !各桁での個数 MAT c=ZER FOR i=1 TO 10^k !実際に数えてみる LET s$=STR$(i) IF MOD(i,3)=0 OR POS(s$,"3")>0 THEN !３で割り切れる、位のどこかに３の数字がある LET L=LEN(s$) !桁数を得る LET c(L)=c(L)+1 !＋１ !PRINT i END IF NEXT i MAT PRINT c; !結果を表示する END

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。