٥륯åĥ
äꥼ˺Ƥޤޤ
ܤ
25ڡ 0:10:28 42885
ʪ
01򥾡1
12򥾡2
ȤդˤӤޤ
12(ʾ̤)
00.5=0
0.51=1
4
01/4=0
1/41/2=1
1/23/4=2
3/41=3
6,8Ʊͤ
1ܤοľˤޤȤ
12ζʬ롣
100ϥ6νο
125+1=61
ܡ 25ڡ 0:13:10 42886

ܤ⣰˺Ƥޤޤ
25ڡ 0:13:12 42887
٥륯åĥ
ͤϡ01ϰϤ2ʬ4ʬ6ʬ8ʬȤ2ܡ4ܡ6ܡ8ܤη̤οΤǡäƤȤͤ20ΤǤ12ʤΤ100ޤǤ60
ǡ˺ƤȤ˵Ť1­61
25ڡ 0:40:32 42888
baLLjugglermoka
2ܤ10λϣĥ֥󥯤롣㡧9,18,27,36꾯Ǥ⾮λϡפʤΤ8789Բġ

310=30ԲĤο롣

2ܤ0.51.5.......9.5λ֥󥯤ĤǤ롣ξ10ԲĤοǤ롣

äơ0100ޤǤ101Ĥ40ԲĤοΤ10140=61

25ڡ 0:50:57 42889
ߤ
ܡܡܤʬ夬Ȥ̤ʤΤǤޤȤƹͤ롣
ʾ声̤
ʾ声̤
ʾ声̤
ʾ声̤
ʾ声̤
ʰʲά
ܤ
ʾ壶ʬΣ̤
ʬΣʾ壶ʬΣ̤
ʬΣʾ壶ʬΣ̤
ʬΣʾ壶ʬΣ̤
ʰʲά

ľϰϤ񤭹ߡ­碌פ
ĤȤʤ롣
ΰ̤ϣ˽ФƤơμϣĤΤ褦
Ϥΰ̤Ʊ֤
äƣ塢Ϥ줾ƱʤΤǣߣ᣶
ξϣʲǤꡢ֣פʤФʤΤ
ܣ᣶̤ꡢ
25ڡ 0:52:44 42890
⡼ޥ
äȤ ^^;
0~1ޤǤǹͤȡ(Dzⱳʤ׻Ƥޤ^^;)
0,1,2,3,4,6,10, 11,12,13,14,16 12Ĥ
0,20,40,60,80ˤ櫓5*12
1001Ĥ5*12+1=61Ģ
¨ ^^;v 25ڡ 1:10:18 42891

ߤʤƱȻפޤ
100ʲˤʤΤϣ奢㣵ʣȣˡǹͤȣܤǣܤǡ֣ڤ뤫碌ơΣ˶ڤ롣ʲƱǣߣ᣶ΣäƣĤˤʤޤ
Ϻꡡ 25ڡ 1:30:03 42892
ǯ
ߤʤȤʤǤ
ܤοȤϡѤʤ
ܤοȤ⡢Ѥʤ
ܤοȤϡѤʤƱΤǡǣ֡
ܤοȤϡ⣱Τǡǣ֡
ܡܡܡܤƤˤʤ륢κǾͤϣʤΤǡιߤǡ¨¤ιߤǷ֤
ߣʤݣܣʣξˡ᣶Ȥ
25

27ڡ 20:39:19 42893
Halt0
ܼŪ¿ʬȰǤ, ʬ˶ռ () ΤäľƲ򤭤ޤ.

a0 Ф
[2a] + [4a] + [6a] + [8a]
ͤ ([] ϥ). a a/24 Ǥ, a0 , μ
[a/12] + [a/6] + [a/4] +[a/3] =: f(a)
Ƚ񤭴.
f(a)=f([a]) f(a) ΤȤꤦͤͤ뤿ˤ a Ȥ 0 ʾΤߤͤнʬʤΤ, ʲ.
f(a+1)-f(a)>1 a+1 12, 6, 4, 3 Τ 2 İʾˤ a+1 6 ܿפդ
f(0)=0, f(5)=2, f(6)=4, f(11)=6 , a=0,1,...,11 Ф f(a) 0,1,2,4,5,6 6 ĤͤȤ.
f(a+12)-f(a)=12/12+12/6+12/4+12/3=10 , f(a) ΤȤꤦͤ
0,1,2,4,5,6,10,11,12,14,15,16,...,90,91,92,94,95,96,100 61 ̤.

25ڡ 3:31:59 42895
ϥ饮㡼ƥ
Ϥ褦ޤץǤߤ
ޤǷ׻ФȤͤޤʤ
ԡ 25ڡ 5:56:02 42896
deu
轵ä˺줿2/14ޤǤȽ񤤤Ƥä2֤ȻפǤΤɡ2֤2/11Ǥ͡
25ڡ 6:30:07 42897
٥륯åĥ
īܤФƤޤޤ

ιְäƻǯˤʤäƤޤ͡
25ڡ 6:44:37 42898

Ϥ褦ޤ
#42892 ᤤƱǤ
2,48ΰʤΤ
1/8, 2/8, 3/8, ġ, 8/8
1/6, 2/6, 3/6, ġ, 6/6
ʣͤ12̤
100(2+4+6+8)=5
0奢5ͤˤĤƤ줾12̤ꡢ
5ΤȤ100ˤʤΤޤ
125+1=61ġȤޤ

ӤƤΤαƶ
Ϥ٤ߤʤΤȻפٴ˿
ǤǰΤȻפäƳ
Ƥޤ(^_^)

25ڡ 7:47:53 42899
Mr.ǥ
¿γƱǤ
ʼ꤬ĤΤ˻֤ޤ...ƬιŲ
25ڡ 9:52:14 42900
???
Option Explicit
Sub Macro1()
Cells(1, 1).Value = 0
Dim kizami As Double, a As Double, b As Integer
kizami = 0.0001
a = 0 : b = 0
While a <= 100 And b <= 100
b = Int(2 * a) + Int(4 * a) + Int(6 * a) + Int(8 * a)
If Cells(1, 1).Value = 0 Then
Cells(1, 1).Value = 1
Cells(1, 2).Value = b : Cells(1, 3).Value = a
ElseIf Cells(Cells(1, 1).Value, 2) < b And b <= 100 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = b
Cells(Cells(1, 1).Value, 3).Value = a
End If
a = a + kizami
Wend
End Sub
25ڡ 11:32:14 42901
uchinyan
Ϥˤϡơϡ
ϥĥĤȵ§Ĵ٤в򤱤ޤ͡ʴǡ

2468 κǾܿ 24 ܤˤĤƼζ֤Ĵ٤ޤ
0/24 = 0 ʾ 3/24 = 1/8 ̤ 0 + 0 + 0 + 0 = 0
3/24 = 1/8 ʾ 4/24 = 1/6 ̤ 0 + 0 + 0 + 1 = 1
4/24 = 1/6 ʾ 6/24 = 1/4 ̤ 0 + 0 + 1 + 1 = 2
6/24 = 1/4 ʾ 8/24 = 1/3 ̤ 0 + 1 + 1 + 2 = 4 <----- 3 ȴ
8/24 = 1/3 ʾ 9/24 = 3/8 ̤ 0 + 1 + 2 + 2 = 5
9/24 = 3/8 ʾ 12/24 = 1/2 ̤ 0 + 1 + 2 + 3 = 6
12/24 = 1/2 ʾ 15/24 = 5/8 ̤ 1 + 2 + 3 + 4 = 10 <----- 789 ȴ
ޤǤǡ0 10 ɽޤ 3789 4 Ĥȴޤ
ϡ 1/2 뤴Ȥɽ 10 夲ޤ 4 Ĥȴޤ
ǡ100 ʲοɽǤϡ0 ɽ뤳Ȥդơ
100 - 4 * 100/10 + 1 = 61
ˤʤޤ
ͥνȡ 25ڡ 11:57:45 MAIL:uchi@sco.bekkoame.ne.jp 42902
uchinyan
ǼĤɤߤޤ
ɽϳ͡Ǥɤϡ֤ʬ϶Ĵٵ§򸫤Ĥ롤ȤˡȻפޤ
ͥνȡ 25ڡ 12:16:29 42903
Ϸʼ
ˤʤΤϼΤ褦ʾǤ
ܡ
ܡ
ܡ
ܡ
ܣܣܣᣱ
ΤܤȣܤϣܤȰѤΤ̵
ܤΣȣܤΣϰѤޤ
ξ˺ʤ
ܣݣܣ᣶
Ȥʤޤ
ʡ 25ڡ 16:13:44 42904

Ūˤ1ΤǤ
0.52,4,6,8
0.254,8
ϰ쵤˥ܥäΤǤ͡
Ǥ
꤬Ȥޤ
28 2:05:39 42905