茖確�

あ～く＠ピカピカの（略

前々回、前回７位だったので今回も７位を狙っていたのですが・・・（汗汗）

#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

先頭に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

僕は超アナログ人間なので、プログラムなんて全然知らないから、いつも答えにいきつくまであっぷあっぷ状態ですよ’’；）

北海道　　 4月14日（水） 23:46:51　　　　20912