ߡ
轵ƱǤ͡鸫ȡջȤפޤ󤬡
⤷տŪȤС轵ΤۤջΤޤ͡
122ڡ 0:09:15 37093
sodo
졢β줿ʤơ
쥹ߥ餱Ǥ
βĮ 122ڡ 0:09:17 37094


ҤȤĤפʤΤ
㤤1096ȤʤäƤޤ
122ڡ 0:27:03 37095
NY
ĶξפʤФΤȻפäƤơƤޤޤ꤬ĤǤŤʤäƤϤʤȤȤäΤǤ͡
ĤޤϡŤͤȤ˸¦ʤȤȤǤ͡

Ĥη򤢤ѥϣĤޤΤǡ줾ˤĤơѻBŬѤǤѥ夲ޤ
122ڡ 0:32:02 37096

ɲϤʤᤫΰ̣褯狼ޤǤ
γ꤬פʤĤȤפʤΤĤϰפƤ褤Τ
ɤΤ褦˽ŤͤƤ⡡΢֤Ƥ褤Τ

դɤ߼줺˻֤äƤޤޤ
1096äޤ

ѤΤȾʸϤ򤳤ä
ޡ 122ڡ 0:47:00 HomePage:37097
ͣ.ǥ

()ΤΣսΤȤ¤ϣʳ5ս꤫ ס42*5260̤
(),,,ΤΣսΤȤ¤ϥ,,,ʳ5ս꤫顣ס42*5260̤
()4ΤΣսΤȤ¤ϥ,,,飲սꡣס4*4224̤
()ܥ,,,Τ1սΤȤ¤ϣΤΣս꤫顣ס4*4224̤

äơס60+60+24+24168̤ˡȵޤ
122ڡ 0:34:49 37098
⡼ޥ
̤...
¿줺...^^;...
122ڡ 0:34:53 37099
CRYING DOLPHIN
ʤ줿

ʸθɤη̡1096Ȥ򻻽С
ϲ̤IDPassǤǧڤƤ⥳Ǥ
Ƥо줷ϲ̤̤οϤĤ꤬ɤ
äƲƤޤä餷Ǥǧڡ
ȡ٤ϡ168פϤ줿̤ɽ줿
ʿ򻻽ФФʤʤ󤫤ΥХȻפĤ
ǧڤȡƤޤä

Ȼפä顢轵Ʊä(
ï⤤ʤԳϡ 122ڡ 0:54:37 HomePage:ƻ37100

1096ɤΤ򸫤Ƥʤ󤫰¿
122ڡ 0:55:39 37101
algebra
ʸɤ߰㤨Ƥޤ
̤ꢪ̤
122ڡ 0:57:19 37102
NY
ְ㤤1032ߤǡɤְäƤޤäΤ
ʤɴְ㤨ƤߤƤ1096ˤʤʤǤ(T_T)

Ȥǡ΢֤Ƥ⤤ȲᤷΤǤβϤäƤΤǤ礦
122ڡ 2:35:27 37103
kasama
ɤ餫Υ˷򳫤뤫ݤǾʬ
ʤC(4,2)^2
롦4C(4,2)2
ѻ¤ηؤäƤ̡顢
{C(4,2)^2+4C(4,2)2}2=168
ҡ 122ڡ 8:30:16 37104
uchinyan
Ϥˤϡơϡ
ϰ򤤤ȤޤäƴñʥϥäΤǤ(^^;
ˤäīϥХХƤΤǡФɤߤĤη꤬פʤȴ㤤ƾǺߤޤ
ɤĤפʤΤ褦Ǥ͡ɡʴǡ

ĤѻŤͤݡP()Q()R() γƥ롼Ǥ꤬פޤ
ǡ꤬ĤפʤΤϡ
ѻ A ǥ˷򳫤ʤ
ѻ A ĤȤ P ΤȤѻ B Q R ǡ4C2 * 5C2 = 60 ̤ꡣ
ѻ A ĤȤ Q ΤȤѻ B P R ǡ4C2 * 5C2 = 60 ̤ꡣ
ѻ A PQ ˰ĤĤΤȤϡѻ B ķ򳫤ȾʤȤĤϰפƤޤΤǡꤨޤ
ǡξιפϡ60 + 60 = 120 ̤ꡤǤ
ѻ A ǥ˷򳫤
ѻ A PR ˰ĤĤΤȤѻ B ĤȤ Q ǡ4C1 * 1 * 4C2 = 24 ̤ꡣ
ѻ A QR ˰ĤĤΤȤѻ B ĤȤ P ǡ4C1 * 1 * 4C2 = 24 ̤ꡣ
ǡξιפϡ24 + 24 = 48 ̤ꡤǤ
ʾǤ٤ƤʤΤǡ120 + 48 = 168 ̤ꡤˤʤޤ

ȤϤͤ轵Ʊ

ʤߤˡ꤬ĤϰפʤĤϰפƤ褤ϡ
΢֤Ƥ褤 1096 ̤ꡤ΢֤ƤϤʤ 1160 ̤
ˤʤޤäƤ뤫ʡ
ͥνȡ 122ڡ 11:49:45 MAIL:uchi@sco.bekkoame.ne.jp 37105
uchinyan
ǼĤɤߤޤ
㴳η׻λ˰㤤Ϥ褦ǤͤϳƱȻפޤ

ʤĤȤפʤĤϰפƤ褤Ȳᤵ줿빽Τϡ
Ϥꡤ㴳ʸޤʤΤʤ
֤ɤΤ褦˽ŤͤƤγ꤬פʤפȤΤǡ
褯ɤСĤפʤȤ˥奢󥹤äƤΤǤ
ͥνȡ 122ڡ 12:03:54 MAIL:uchi@sco.bekkoame.ne.jp 37106
abcba@jugglermoka
#37105
>΢֤Ƥ褤 1096 ̤ꡤ΢֤ƤϤʤ 1160 ̤

ʬ1096,1160ޤȻפޤ
122ڡ 13:15:49 37107
cyclone
֤Ƥ1096ФƤ˾ȤȤ˿ޤ
122ڡ 13:29:16 37108
գƣ
#37098ƱͤǤ
122ڡ 15:48:19 37109
uchinyan
#37107
>΢֤Ƥ褤 1096 ̤ꡤ΢֤ƤϤʤ 1160 ̤
伫ʬ1096,1160ޤȻפޤ
ǧ򤢤꤬Ȥޤ
ͥνȡ 122ڡ 17:31:11 MAIL:uchi@sco.bekkoame.ne.jp 37110
???
Option Explicit
'0 1 2 -- 2 5 8 -- 8 7 6 -- 6 3 0
'3 4 5 1 4 7 5 4 3 7 4 1
'6 7 8 0 3 6 2 1 0 8 5 2
Sub Macro1()
Cells(1, 1).Value = 0
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
For a = 0 To 8 - 1
For b = a + 1 To 8
For c = 0 To 8 - 1
If place(a) <> place(c) And place(b) <> place(c) Then
For d = c + 1 To 8
If place(a) <> place(d) And place(b) <> place(d) Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = kigou(a)
Cells(Cells(1, 1).Value, 3).Value = kigou(b)
Cells(Cells(1, 1).Value, 4).Value = kigou(c)
Cells(Cells(1, 1).Value, 5).Value = kigou(d)
End If
Next d
End If
Next c
Next b
Next a
End Sub
Private Function place(ByVal n As Integer) As Integer
If n = 0 Or n = 2 Or n = 6 Or n = 8 Then
place = 0 'ĺ
ElseIf n = 1 Or n = 3 Or n = 5 Or n = 7 Then
place = 1 'դο
Else
place = 2 '濴
End If
End Function
Private Function kigou(ByVal n As Integer) As String
Select Case n
Case 0
kigou = ""
Case 1
kigou = ""
Case 2
kigou = ""
Case 3
kigou = ""
Case 4
kigou = ""
Case 5
kigou = ""
Case 6
kigou = ""
Case 7
kigou = ""
Case Else
kigou = ""
End Select
End Function
123ʶ 11:16:06 37111
CRYING DOLPHIN
Ρȥ龡˽ס
ֻȥ飷פη(饹ȣ)ȿǤޤ

ttp://cdcdcd.sansu.org/pika/st/

νפϡ䤬־ˡ׽פΤǤ
Τߤǥߥޥ...orz

ï⤤ʤԳϡ 123ʶ 12:40:20 HomePage:ƻ37112

Ver.3ɤեå󥰺βץȤ߹ޤ줿褦Ǥ
ʤ⡣
餷Τǡٹ
TOA󡦡դƤΤ0

Ȳ褹ޤǡVer.3󥯤Ƥͤٹ𤹤뤫ڤ뤫б⡣
ŷϿ͡ 127ʲС 0:51:05 37113
ޥ
ԣϣңäƳǧƤߤޤɤ顢֤İƤ褦ǤȤꤢ򤷤Ƥ롩եϺΤΡ꤬ȯץʬʤ.. Ȥ֤Τ褦Ǥ

줫Υ󥯤ϡȤꤢ꤬褹ޤǤδ֤ڤäƤȤˤޤ󡢤𤢤꤬Ȥޤ
127ʲС 13:56:10 37114
hide
ä줿
񤷤ȷɱ󤷤ƤɡºݤˤϰŻ٥ä

عPCǻ죳Υڡפʡ
ȡࡡ 127ʲС 21:38:11 37115
ͣ.ǥ
Ǥ򤽤Ǥ衣
http://www.museum.city.ichinoseki.iwate.jp/icm/06events/h22_ws08.html
ǯλ˹ԤƤ뤳Ȥ򡢤äפФޤʤܤܤͤƤߤ褦ȻפäƤޤ

128ʿ 16:24:33 37116
粬ҹ
פ֤ޤ1096餷ơ֤ۤáפȤƤޤ
ñˣȤ߹碌ιפФޤʤʤڤǤ
128ʿ 20:39:18 37117