- Dim koldelitVsego As Long Dim koldelitChisla As Long Dim i As Long Dim ii As Long - 約数の計算をするプログラムを書きました。
Private Sub Command1_Click() koldelitVsego = 0 For i = 1 To 2002 koldelitChisla = 0 For ii = 1 To i If ((i / ii) - Int(i / ii))= 0 Then koldelitChisla = koldelitChisla + 1'If = 0 then divide Next ii koldelitVsego = koldelitVsego + koldelitChisla 'Print i, koldelitChisla Next i Print koldelitVsego End Sub - 15542個と判明した。
環境保護団体は、大量の伐採に抗議している。木材会社の会長は、次のように言って安心させた。"松の木 "が99%ある森。伐採されるのは松だけで、松の割合は98%とほとんど変わりません。森林のどの部分が伐採の対象になっているのでしょうか?
そう、狡猾な会長と愚かな環境保護主義者 :))))
3人のランナーA、B、Cが100m走を何度も走った。その結果、AはBに半分以上、BはCに半分以上、CはAに半分以上勝っていることが判明したのだ。こんなことありえるの? (シュタインガウツ問題集より)
ランナーについてわかっているのは、問題に書いてあることだけです。おそらく3人ともそうでしょう。
-
Dim koldelitVsego As Long
Dim koldelitChisla As Long
Dim i As Long
Dim ii As Long
-
約数の計算をするプログラムを書きました。
Private Sub Command1_Click()
koldelitVsego = 0
For i = 1 To 2002
koldelitChisla = 0
For ii = 1 To i
If ((i / ii) - Int(i / ii))= 0 Then koldelitChisla = koldelitChisla + 1'If = 0 then divide
Next ii
koldelitVsego = koldelitVsego + koldelitChisla
'Print i, koldelitChisla
Next i
Print koldelitVsego
End Sub
-
15542個と判明した。
"若い数学者のために第1回百人一首」と「第2回百人一首」。
もしかしたら、そこから何か役に立つかもしれません。
===
この映画「フェルマーの罠」に出会いました。
4人の数学者が部屋に閉じ込められ、物理的な破壊の脅威の中で論理数学的な問題を解くことを余儀なくされています。このままでは死が待っている。ブルルルルルルルルル
実はこれ、探偵小説なんです。具体的には
見た人いますか?これとよく似ていますね。なぞなぞもやっているんですね。ここでは自虐ネタはなしだが。
Очень похоже на эту ветку. Тоже загадки отгадываете. Правда, здесь без членовредительства.
エッヘン・・・なぜ、最初の頃より支店に残っている人が少なくなっていると思いますか・・・?
Гхм.. А как ты думаешь, почему в ветке осталось меньше народу чем было вначале...?
どこにも行ってませんよ、今は掲示板を見る時間がないだけです :)))
я кстати никуда не ушел, просто щас времени на форумы нет:)))
潜水艦からどこで降りるのか......? 時間に関しても、ないんです。:))
スビノザブール、ランナーについて教えてください。