ʤΤǡ㤨Уԣꤷƹͤ뤳ȤǤ
ߣΣ
531ڡ 0:07:06 39390
Ҥ
ߣǤ͡
ήФˤߤʤ®
531ڡ 0:07:21 39391
ޥĥ
äݤǤΤǸǤơ
¤߸ΣǣǤ͡
ߤʤ®᤮롦
531ڡ 0:09:03 39392

ϤǯǤȴƴñʵޤ
531ڡ 0:11:35 39393
ͣ.ǥ
ƱǤ
524򤷤ơࡣֺФȤäƤ⡢Ƥܤʴʿˡ
531ڡ 0:14:24 39394
cyclone
KEKKONSHITA!
531ڡ 0:20:39 HomePage:饤եå39395
kotani
äAäǽФƤ֤夺פνƱ͡
531ڡ 0:24:02 39397
⡼ޥ
Ʊ...^^
(6!/6)*2^6 ΢֤ޤޤƤ뤫...x(1/2) =120*32=3840
...
ޤʤ...ͥå쥹ä¿ͤʤΤäƤ櫓Ǥͤ
531ڡ 0:27:38 39398
ʸ
5! * 2^5 / 2 = 3840

뺧ǤȤޤ
531ڡ 0:54:40 39399
ܤä
ä
ٽäƤDZ߽󤷤äƤʤꤳä
ͤƤ⸫ȤʤΤDZ߽Ĵ٤ƤΤȯ
ޤ(^o^)
531ڡ 1:29:01 39400

52^5
οǤ򤱤ɤäǤ

Ϥ62^6ǤȤǤʤˤʤäƤޤ
531ڡ 2:25:31 HomePage:39401
ϺĹ
󡢤äȲ򤱤ޤ
ϡǽˣΣӤȣȣɤϵդɤ뤬ԣȤϵոˤɤʤϥѥ뤫ʤƻפäΤ顢عԤäƤޤäʬʤʤޤɡñ5!2^5
531ڡ 8:16:56 39402
abcba@baLLjugglermoka
5!2^6Ƥޤޤͥå쥹΢֤ƤƱʤΤ52^5Ǥ͡
531ڡ 8:27:23 39403

϶ռꡢΤ⤢ޤٶޤǤϣȸǻĤĤʤΤ줾ɽ΢ʡˤΣ̤ǣǤȿФ¤ӤƱˤʤΤǣdzäƣäƣߣʤ󤫽ζʽˤä褦ʡͤƵޤ
531ڡ 8:54:58 39404

ʸϲΥʥȤϻפäΤǤ
ǤȤޤʡˤǤΤ
ʻȾ᤮ȤȤƤϡ˳ڤȤФǤϡȰźʤޤ
531ڡ 9:02:00 39405
toby
뺧줿ǤǤȤޤ
531ڡ 10:21:11 39406
uchinyan
Ϥˤϡơϡ
ǽ򸫤Ȥϡ֤ϤʤݤǤϡפȻפäΤǤ¤ϴñǤʴǡ

ޤ6 ĤΥѡĤϡ줾ۤʤʸ줿ӡ̤ǤƤꡤޤ٤ƤΥѡĤʸ¤Ӥϰۤʤޤ
ˡ2 İʾΥѡĤĤʤƱѥϸޤ
ǡĤʤΩǼͳ˹ԤޤΤȤ˽פ꤬ñˤʤװǤ
ơͥå쥹뤿ˡξ 6 ĤΥѡĤ¤٤ޤΥѡĤ¤ 6! ̤ꡣ
ͥå쥹ˤ뤿˱߾ˤȡ6 ̤ꤺƱΤˤʤΤ 6!/6 ̤ꡣ
ǡĤΥѡĤۤʤ 2 ĤΥӡ̤ǤƤ뤳ȤפФ 2^6 ݤꡤ6!/6 * 2^6 ̤ꡣ
ƤǤͥå쥹ˤ뤿˴夲ȡ
β¦鸫¤Ӥ̤δξ¦鸫¤ӤƱϽʣʬΤǡ6!/6 * 2^6 * 1/2 ̤ꡣ
ǡǤͥå쥹ˤơ
6!/6 * 2^6 * 1/2 = 5! * 2^5 = 120 * 32 = 3840 ̤ = 3840
ˤʤޤ

Ȥǡʸ򤦤ޤ¤٤ȡKEKKONSHITA! = 뺧ȤʤΤǤ
Υͥå쥹Ϸ뺧ǰΤˤʤΤʡ
ȤȤϡְäƤ餴ʤǤΤȿȤäޥ뤵󤴷뺧ʤäΤǤ礦
Ȥ顤ǤȤޤ
ͥνȡ 531ڡ 11:18:19 39407
uchinyan
ǼĤɤߤޤ
󡤤ܦȤ̣ǤϡۤƱˡΤ褦Ǥʬहȡ
ĤΥѡĤ򤽤Υѡʸ¤ӤθޤǸꤷƤ¾¤٤ȹͤƲ򤯲ˡ
߽ɽ΢νʣ˳ƥѡǤΥӡ̤¤θƲ򤯲ˡ
Τ褦Ǥǹͤ¿ΤǡϾܺ٤ʬϾάޤ
ͥνȡ 531ڡ 11:43:52 39408
hide
2^6
531ڡ 12:30:17 39409
???
Option Explicit
Dim a(5, 1) As Integer, kotae As Integer
Sub Macro1()
kotae = 0: a(0, 0) = 0: a(0, 1) = 0
Call saiki(1, 0)
Cells(1, 1).Value = kotae: Range("A1").Select
End Sub
Private Sub saiki(ByVal n As Integer, ByVal i As Integer)
Dim max As Integer, QX As Integer
If i = 0 Then a(n, 0) = 1: max = 5 Else a(n, 1) = 0: max = 1
While a(n, i) <= max
If i = 1 Then QX = 1 Else If onaji(n) = 0 Then QX = 1 Else QX = 0
If QX Then
If n < 5 Then Call saiki(n + 1, i) Else If i = 0 Then Call saiki(1, 1) Else Call check
End If
a(n, i) = a(n, i) + 1
Wend
End Sub
Private Sub check()
Dim bii As String, j As Integer
kotae = kotae + 1: bii = ""
For j = 0 To 5: bii = bii + biidama(a(j, 0), a(j, 1)): Next j
Cells(kotae, 2).Value = bii: Range("B" & kotae).Select
End Sub
Private Function biidama(ByVal n As Integer, ByVal i As Integer) As String
Select Case n
Case 0: biidama = "IK"
Case 1: biidama = "TA"
Case 2: biidama = "NS"
Case 3: biidama = "KO"
Case 4: biidama = "HI"
Case Else: biidama = "EK"
End Select
If i = 1 Then biidama = Right(biidama, 1) + Left(biidama, 1)
End Function
Private Function onaji(ByVal n As Integer) As Integer
Dim j As Integer
onaji = 0: j = 0
While onaji = 0 And j < n
If a(j, 0) = a(n, 0) Then onaji = 1 Else j = j + 1
Wend
End Function
531ڡ 12:47:01 39410
doba
ɤʤ뺧줿ΤȵסƤߤޤ
ȤʤΤǤĤǤȤޤ
531ڡ 13:38:01 39411
doba
ʼ¤ϡ֡פΥӡ̤ոɤǡKEKKONSHITAiפʤƥʤǤ(^^;
531ڡ 13:45:15 39412
⡼ޥ
#39412
doba󡢺7 ^^

ޤ뤵󡢤錄٤Фʤ餪ˤ夲ޤ
531ڡ 13:54:48 39413
ϥ饮㡼ƥ
Ȥ߹碌϶ǤɤǤΤǽޤ
531ڡ 13:54:59 HomePage:湩ؤ˥39414
ޥ
Ϥ󤪵դ̤ꡢ뺧ʤޤ˹ԤäǤˤƤޤν˼򤢤꤬Ȥޤ
iMac 531ڡ 14:18:48 HomePage:39415
ؽ
򤤤ƤȤϡⵤŤޤǤ
뺧ǤȤޤ
ʤˡ
Ͼ졡 531ڡ 14:29:04 MAIL:kishimotoakihisa@hotmail.com HomePage:ۡڡ39416
CRYING DOLPHIN
ե٥åȤˤϲʤȻפĤġɥå꤫ä󤸤ʤȻפޤȯ򹵤Ƥޤ

뺧ǤȤޤ
ɤǤ᤿ 531ڡ 14:38:06 HomePage:֥äƤ39417
ͣ.ǥ
뺧ǤȤޤΥե٥åȤˤϡȤޤƤΤǤ͡
ͤϤ碌ơŨʲۤƤäƤ

ʸǤϡ֥ޥ뷯ȡ󤬡פȤȤǡΤȤ˱̾Τʡ
531ڡ 17:55:50 39418
kasama
򤤤ƤȤˤϡޤäդޤǤ뺧줿ΤǤ͡ǤȤޤͤι򵧤äƤޤ(^_^)
531ڡ 18:33:14 39419

ǤȤޤ
ޤǤϡͤο
줫ϡͤο
531ڡ 18:41:29 MAIL:yasuhirovich@oboe.ocn.ne.jp 39420
ҤФ
뺧ǤȤޤ
Ĥ⤪äˤʤäƤޤ
ľܸȤϤǤޤ󤬡ʤˡ
531ڡ 19:10:40 39421
ҤФ
뺧ǤȤޤ
Ĥ⤪äˤʤäƤޤ
ľܸȤϤǤޤ󤬡ʤˡ
531ڡ 19:10:47 39422
ϥ饮㡼ƥ
뺧ǤȤޤ

10ǯǶ⺧50ǯˤޤΤȤƷ뺧Ĺ³ˡ򥢥ɥХޤ

ޤͤǿ뤳Ȥ򤱡Ʊʪ򤤤Ĥ⿩٤褦ˤ뤳

ΰƧ߹ޤʤȡȤƱ̣λˤϵĤ뤳ȡͤȷޤˤʤ

ʤȤäƤͤƬƯư򤦤ޤĤ뤳

ߤ򤤤äơή˰٤ϰƤȤ

ޤˤޤ

531ڡ 19:57:39 HomePage:湩ؤ˥39423
ϺĹȥߥ
ǣУøƤ顢饫ߥ󤬡֤ǤȤ׸äƤ뤵ΤǡǤȤޤͥǤ뤳Ȥ򵧤ޤ
531ڡ 20:08:39 39424
޿
뺧ǤȤޤ
𤢤դǤޤ褦ˡ
531ڡ 20:48:46 39425
cyclone
ϤꤽǤ
뺧ǤȤޤ
531ڡ 20:53:15 HomePage:饤եå39426
algebra
뺧ǤȤޤʤۤ夲Ʋ줫ꤤפޤ
531ڡ 22:40:20 39428

뺧ǤȤޤ
ˢ
61ʶ 19:29:41 HomePage:ͷӥڡ39429
xxx
뺧ǤȤޤ
ؤɤʤˡ

ޡפ
νФƤ
ˡԡΡӡˡϡȡɡšˤ¤ؤ
ˣţˣˣϣΣӣȣɣԣ뺧Ȥˤʤä
ꤲʤ˽ФƤǤ͡
⤦١ˡ
61ʶ 22:39:45 39430
⤬Ф
뺧ǤȤޤ

ζ̤򤹤ΤɤƤʤäΤǡñʶ̤ȤƲ򤭤ޤ

Ȥǡζ̤ʤȤɤʣˤʤǤ礦Ĥޤ󡰡
62ڡ 23:03:18 39431
Ȼ
뺧ǤȤޤ
62ڡ 23:41:27 39432
ѷ
ȤǡǯϻȥϤʤΤǤ礦
63 0:19:28 39433
ޥ
͡ˤΤդ򤢤꤬Ȥޤ⻻Ϥ³Ƥޤ̤ѲʤȻפޤ⤳ޤǤѤ餺ꤤޤm(__)m
iMac 64ʷ 5:34:04 HomePage:39434
N.Nishi
뺧ǤȤޤ
66ʿ 20:29:36 39435