あ〜く＠ピカピカの（略
前々回、前回７位だったので今回も７位を狙っていたのですが・・・（汗汗）

#20873
図形も表示できました。「ユビキタス社会」までもう一歩って感じですｗ

#20853
私も是非（＾＾）
未完成の蜜柑星　　 4月8日（木） 0:06:43　　 MAIL:kentaro@qa2.so-net.ne.jp 　　20874
はなう
ケタが上がらないから

４ミスくらい。ふうー
　　 4月8日（木） 0:08:03　　 　　20875
DrK
こうなんですね。
私も1回目は簡単かなと思って91を送って撃沈しました。
単純に桁数を引き算したら、1回目の9を数えないことになるので意外にも落とし穴かも。
今は楽園かな?違うな。　　 4月8日（木） 0:09:06　　 MAIL:satoka@star.odn.ne.jp 　　20876
kasama
こんばんは、ほとんど何も考えず、プログラムでやりました^^;。

import java.math.*;
public class Question398 {
　public static void main(String[] args) {
　　BigInteger num = BigInteger.ONE;
　　int count = 0;
　　for (int i = 0; i < 2004; ++i) {
　　　num = num.multiply(new BigInteger("9"));
　　　if (num.toString().substring(0,1).equals("9")) ++count;
　　}
　　System.out.println(count);
　}
}
和歌山　　 4月8日（木） 0:10:52　　 MAIL:kasama@s34.co.jp 　　20877
ミキティ
110 s=0
120 x=1
130 for i=1 to 2004
140 x=x*9
150 if x>=10 then x=x/10
160 if int(x)=9 then s=s+1
170 next i
180 print s
190 end

私もプログラムです。ただ、パソコンフリーズを考慮しても遅すぎ。
　　 4月8日（木） 0:13:04　　 　　20878
おかひで博士
２００４−１９１３＝１９１（？）
と、計算間違いしてしまいました。
愚か・・・
ケタが増えない　→　１０○○○　×　９　＝　９○○○○
に注目して、あとは、初めの９の分、＋１ですね
　　 4月8日（木） 0:15:18　　 　　20879
Taro
Excelで対数を利用して解きました。
Mystery　　 4月8日（木） 0:16:02　　 　　20880
うのたかはる
#20853
大阪いらっしゃるんですか？
私、西成区在住です。
　　 4月8日（木） 0:16:54　　 　　20881
おかひで博士
３０位以内ならず、無念
　　 4月8日（木） 0:17:52　　 　　20882
まるケン
最初は一桁。最後は１９１３桁。増えたのは１９１２桁。
２００４−１９１２＝９２

と気づくまえにプログラム書いちゃいました。ruby です。

t = 0
n = 1
(1..2004).each do
　　n *= 9
　　if(n.to_s[0] == 9.to_s[0]) then
　　　　t += 1
　　end
end
print t, "\n"
　　 4月8日（木） 0:19:04　　 MAIL:take4310@mobile.email.ne.jp HomePage:まるケンの部屋　　20883
吉川　マサル
んと、大阪出張ですけど、4/18が初回で、７月までの全１１回（5/2は除く）の予定です。授業が上本町（...って、何処？(^^;;）で21:00まである予定でして、プチオフミをやるにしても、ちょいとスタートが遅くなってしまいそうな感じです。
MacOS X　　 4月8日（木） 0:19:11　　 MAIL:masaru-y@kt.rim.or.jp HomePage:算チャレ　　20884
hiro
#20879 おかひで博士さんと同じ解き方です。＋１を忘れるところでしたが送信直前に気付きました^^;
　　 4月8日（木） 0:21:31　　 　　20885
ニッシー
こんばんは。　私も電卓で確認しました。　２３回目、４５回目　
ということで、　２００４／２２→９１．ｘｘ　最初１回目を加えて　
９２としました。　2004-1913=91　ですし、桁が落ちる直前に一度”９”が
先頭に登場すると考えると、この桁の差の分（＋１）が答えなんですよね。
安城　　 4月8日（木） 0:25:25　　 　　20886
拓パパ
ある数に9を掛けた時に桁数が増えないのなら、掛けた後は必ずアタマが9だから、
2004-（1913-1）=92となりました．　気が付くのが遅かったです（笑）．何度も対数→Excelの誘惑に負けそうになりました．
　　 4月8日（木） 0:26:22　　 MAIL:dr-yasu@nifty.com 　　20887
始 受験勉強君
なんか今回の問題は最終式が2004-1913＋1=92回というあっけない式でしたが、なんかその式にたどり着くまでが大変でした。
なんかこういう式は単純なのに難しいという問題は結構いい問題ということなのではないかと思います。
今日は本当に大変でした。もう僕は寝ようかな・・・・。(＾＾;:)
算数大好き人間(後は数学)　　 4月8日（木） 0:28:21　　 MAIL:oirarion@dk.pdx.ne.jp 　　20888
みかん
今週は入れましたが認証で（笑）。エクセルで１００乗までやったところ
２２乗したら１回出てくるということに気づき、あとは２００４÷２２＝９１なので
その前後を適当に認証しました。
でも「１９１３桁」という意味が分からなくて・・・。これからここの書き込みで勉強します。
　　 4月8日（木） 0:51:36　　 　　20889
寺脇犬
＃２０８８４　上本町の何処ですのん？　もしかして河合塾？
　僕も　マサルさんのご尊顔を拝しに行こかな
　　 4月8日（木） 0:53:42　　 　　20890
ハラギャーテイ
おはようございます。

10進ベーシック、万歳
北九州　　 4月8日（木） 6:32:12　　 HomePage:ハラギャーテイの制御工学にチャレンジ　　20891
小学名探偵
log３＝0.4771213　とみて、
2004＊log９＝2004＊2＊log３≒1912.3　これから、
９の2004乗は1913桁、
１０の2004乗は2004桁、
先頭の数が９になるのは、９を掛けたときに桁上げがなかった場合です。
9＊100，...，0＝900，...，0
9＊111，...，1＝999，...，9（桁上げ無し）
桁上げが有れば、先頭の数字は９以外の数字（1から８）になります。
2004-1913+1
東京　　 4月8日（木） 7:47:59　　 　　20892
小学名探偵
訂正：「１０の2004乗は2005桁」
東京　　 4月8日（木） 8:03:02　　 　　20893
水田X
ウルトラ９の２００４年版の時代設定は１９１３年ということが言外に含まれてるようですね。聖書を読み解くと未来の予言が隠されてるように。。。こんだけお金があったらカネゴンも食べきれない！？無量大数の何乗でしょう。
　　 4月8日（木） 11:43:39　　 　　20894
M.Hossie
　こんばんにゃ。言われてみればなかなか気のきいたいい問題ですね。ぼくはみかんさんと同様に、２２乗ごとに９が頭に来ることに気付いたので、２００４わる２２で解きました。みかんさんと違うところは、エクセルではなく超原始的な電卓だということですね。
　全然関係無いですが、６年に１度開催される諏訪大社 (長野県諏訪市) の御柱祭を見に行きました。先週は上社の山出しで、「川渡り」がメインでした。乗っていた人がバランスを崩して雪解け水の冷たい川に投げ出されるというのも一興ですが、何人かは救急車で搬送されたりもしていました。大丈夫なんでしょうか。ついでに、今週末のメインである下社の「坂落とし」の現場を下見して来ましたが、あれはやっぱりまずいわ。死者が出るのも当然だわ。あの坂を実際に足で下りてみましたが、足で降りても結構大変なのに、あれを丸太に乗って滑り降りるなんてガクガクブルブル。そういう訳で、今週末もスーパーあずさに乗って見に行きます。
￿　　 4月8日（木） 12:02:16　　 　　20895
まるケン
ruby 万歳！！
ということで、ワンライナーに挑戦してみました。

ruby -e "print (1..2004).to_a.delete_if{|i|(9**i).to_s[0] != 9.to_s[0]}.size"
　　 4月8日（木） 12:14:43　　 MAIL:take4310@mobile.email.ne.jp HomePage:まるケンの部屋　　20896
ｎ
学校も新学期が始まりました。疲れた
　　 4月8日（木） 19:42:22　　 　　20897
小学生X
何と無くパソコンの電卓で解きました。
　　 4月8日（木） 19:52:24　　 　　20898
小西孝一
皆さんと同じく、読んでないけど
2004-1913+1=92
桁の上がらない回数を数えるんですよね。
あいかわらず目が痛い（泣き
　　 4月8日（木） 22:01:33　　 　　20899
まぼろし探偵
ほかに解法ないか探したけど（１０−１）の２００４乗の途中の係数（１０の（２００４−ｋ）乗近辺）って１０の２００４乗よりはるかに大きい数のプラスマイナスが続くね。これではとても解けないです。
　　 4月9日（金） 14:24:35　　 　　20900
tomh
そのままの数字を扱うのは大変なので、常用対数を使った
プログラムを組みました。
n log9 (1≦n≦2004)の小数部がlog9=0.9542…以上1未満に
なるかどうかで判断しました。

新潟市　　 4月9日（金） 21:18:03　　 MAIL:tomh@yahoo.co.jp 　　20901
RD
先頭に10がつく数字を探していたら、小西孝一さんと同じ考えに行き着きました。
北海道　　 4月10日（土） 10:56:19　　 　　20902
mhayashi
#20896 one line program
Perl でも挑戦してみました．

perl -e "use bigint;$s=1;for(1...2004){$s*=9;if($s=~/^9/){$c++;}}print $c;"

さらに短い
perl -e "use bigint;for $i (1...2004){if(9**$i=~/^9/){$c++;}}print $c;"
もありますがこっちは数倍遅いです．
というわけで Perl も万歳！！
関西　　 4月10日（土） 11:08:27　　 HomePage:M.Hayashi's Web Site　　20903
ハラギャーテイ
BASICでは一行で書けません。
LET s=1
LET m=0
for k=1 TO 2004
LET s=s*9
DO WHILE s>=10
LET s=s/10
loop
if int(s)=9 then
LET m=m+1
end if
next k
print m
END

それでも10進BASIC万歳
北九州　　 4月10日（土） 15:20:00　　 HomePage:ハラギャーテイの制御工学にチャレンジ　　20904
takada
気付くまでに１時間もかかってしまった。
情けない。（泣
　　 4月10日（土） 22:30:15　　 MAIL:pctakda@mail.goo.ne.jp 　　20905
なか
PERL、もう少し短く

$b=1e-9;for$i(1..2004){$b*=.9;$c+=$b=~/^9/}print$c;
北海道　　 4月12日（月） 5:14:03　　 MAIL:naka@sansu.org HomePage:naka's Home Page　　20906
まるケン
正規表現などを使ったらもう少し短くできました。

ruby -e "c,b=0,1;2004.times{c+=1if(b*=9).to_s=~/^9/};p c"
　　 4月12日（月） 16:33:55　　 MAIL:take4310@mobile.email.ne.jp HomePage:まるケンの部屋　　20907
なか
p と print の分だけ、ruby の勝ちですね。

c と perl のいいとこどりしたのが ruby かなという印象を持った
ところまでで、中身の勉強はまだでした。今度見てみます。
北海道　　 4月12日（月） 21:42:42　　 MAIL:naka@sansu.org HomePage:naka's Home Page　　20908
ゴンとも
これは計算いらずでした。以下解答です。
先ず「掛けて先頭の数字が9がでるのは
すべてが1か先頭から2番目までが10
つまり9掛けても桁上がりしない」
題意では2004回掛けて1931桁なので
掛けて桁上がりしない回数は
2004-1913=91回
これと最初の数で+1で92回・・・・・・(答え)
すべてが1は可能性がない事は111111111(オール1で初めての9の倍数)が9で一回割り12345679で次に割ると整数でなく題意の演算では111111111はない。
解答終わりです。
しかし今プログラミングをいろいろ探索しているので皆さんのカキコはおおいに参考になります。私はCPUに1対1対応するという機械語でやりたいというか数学の問題で0と1をすべて並べるのはよくやるからそれは猛者と
あったからそれもやりたいです。では。
愛知県豊川市　　 4月14日（水） 18:38:03　　 MAIL:ｆｔｔnm528@ybb.ne.jp 　　20909
ゴンとも
先程の自分の解答ですべてが1か先頭から2番目までが10を区別する
必要はなかったです。考え方が先頭だけ先頭か2番目までという風に
考えたためそうなってしまいました。ウルトラQ見てます。
そういうのは知りませんでした。しかし異星人とか大好きでウルトラ7
が最高だと思います。では。
愛知県豊川市　　 4月14日（水） 20:03:32　　 MAIL:ｆｔｔnm528@ybb.ne.jp 　　20910
mhayashi
#20906
おぉ短くなったうえに速くなってるー φ(.. ) メモメモ
とりあえず当時の Ruby 版より短くできていたので
さらなる追求を怠っていました．
それにしても今回はいろんなプログラムが出ましたね．アツイです!!
関西　　 4月14日（水） 21:35:45　　 HomePage:M.Hayashi's Web Site　　20911
RD
僕は超アナログ人間なので、プログラムなんて全然知らないから、いつも答えにいきつくまであっぷあっぷ状態ですよ’’；）
北海道　　 4月14日（水） 23:46:51　　 　　20912