סΣ̤ʵޤ
12248˰ơ
00041̤
00132̤
00222̤
01122̤
11111̤
ǹ8̤
65ڡ 0:05:25 41865
⡼ޥ
#41865
ˡΥեȥСǤ^^;

12=2+2+2+61̤
=2+2+3+52̤
=2+2+4+42̤
=2+3+3+42̤
=3+3+3+31̤

=1*2+2*3=8 ̤
¨ ^^;v 65ڡ 0:17:03 41866
٥륯åĥ
ǤĤ꤬٤äƤޤ
Ϥ褯ɤߤޤ礦
65ڡ 0:18:39 41867
ʤj̱
ƤǤwww
65ڡ 0:19:17 41868
ǯ
ߡߡߡߤǽ۴ĤäƤơߤΰ֤ˣĤΡߤˡǿޤ
65ڡ 0:19:45 41869
ʤj̱
߼飴ǡδ֣սθĿİʾǣս碌ƣĤˤʤ褦ˤwww
Ū˹ͤȤʤϤ

εդȯۤ()
65ڡ 0:25:42 41870
baLLjugglermoka
ƱΤδֳ֤ǡ
3333,2226,2235,2325,2244,2424,2334,2343Σ̤ꡣ
65ڡ 0:30:25 41871

٤礦Ȥʤʤ顢ȤߤͤꤷߤĤ֤˿᤽äΤǿޤ
򥹥ȤƣܡܡĤꣶܤǸͳѷ򣲣ɽȤȡʣϣƱʤΤǡ˺Ǹ˾ʿäƤΤդ







Σ̤
Ϻꡡ 65ڡ 0:34:27 41872

ȤۤƱǤ
ͳѷĺȤα٤ȤȹͤȻĤζƤ4
4Ȥα٤ˤɤ꿶뤫ǹͤޤ
4000
3100
3010
2200
2020
2110
2101
1111
ʾ8̤ꡣ

)ǯԤƱǤ͢(࡮)
65ڡ 1:08:44 41873
ޤ
#41872 ֺǸ˾ʿäƤΤաפˡˤɤĤġޡˡ

#41865 Ρ12248˰ơפԥȤƤʤΤǡ콵֤ΡֽפȤޤ

Ǥ⡢ȯ򤷤ʤȥǤ͡ġޤޤԤ­ޤ orz
65ڡ 1:33:13 41874
ߤ
פΣΤȤ顢ĢĢĢġʣɽȤˤˡ
ʲ΢֤žƱΤΤդĤġ

ΣĤǤޤǽΣ碌ơף̤ꡣ

Τ꺢ǤΤ߽񤫤륿פλ
ƤäݤǤ򤷤ʤΤ⡣ͤ޼
פλ˺ϤĤɡʤκʤ
65ڡ 2:18:17 41875

ƻդĹƱƱƱƱ
Ʊİ㤦Ĵ٤ޤ
65ڡ 4:31:04 41876

ɡդδ֤ˣĤդ櫓ơ㤦4ѷĤѥ
ͤơ

ᣱΣ̤Ǥ
65ڡ 6:34:21 41877
ϺĹ
128ޤǤϤ˻פĤޤθ塢0013ξ磲ʤΤ010310030013ΣʤΤǺ𤷤ޤǶᡢɤ餤ʤ䤭ʹ뤳Ȥ¿ʤäƤơ
īФǾȥˤʤޤ
65ڡ 8:02:27 41878
Ϸʼ
ƱͤǤɤäǤ
ͳѷΣȳѤδ֤Σ
ĤΣ򣴤ĤΰػҤ֤ˡͤޤ
äƣ̤Ȥʤޤ
ʡ 65ڡ 8:20:29 41879
uchinyan
Ϥˤϡơϡ
ࡤǽ顤C ȤȤäΤо;ʬʤΤȤΤǤ夲ˤʤäƤޤޤ
Ȥ櫓ǡɡʴǡ

ޤžоΤʤΤΤǡꤷƹͤ 1 Ȥʳȿײ 2 12, 13 = 1 ֹդޤ
ȡֹκϻͤĤǡ¤ 13 - 1 = 12ƱΤϼʤΤǺ 2 ʾ塤Ȥʤꡤ
оˤƱˤʤΤϽΤǡͳѷƱΤդȸ碌դܤơ
12
= 2 + 2 + 2 + 6
= 2 + 2 + 3 + 5 = 2 + 3 + 2 + 5
= 2 + 2 + 4 + 4 = 2 + 4 + 2 + 4
= 2 + 3 + 3 + 4 = 2 + 3 + 4 + 3
= 3 + 3 + 3 + 3
8 ̤ˤʤޤ

ǽ顤դΰִطͤˡñˡͤĤľ¤٤ФΤȻפäΤǤ
ͤŤ2 + 3 + 4 + 3ȤƤƶϫޤ
ͥνȡ 65ڡ 12:50:40 41880
uchinyan
ǼĤɤߤޤ
ࡤϡ­ʬब񤷤Ǥ¤ 12 ˤʤ뤳ȤȤäƤ뤫ʬषޤ
äƤ餴ʤ

#41865#41869#41870#41873#41877#41878#41879
ͳѷդΰ֤˻ͳѷĺȤ٤ʳ 4 꿶ȹͤˡ

#41866#41871#41872#41875#41880
δ֤α߸̤θĿ 2 ʾǤ¤ 12 ˤʤ뤳Ȥܤˡ
θιͤϡ#41865ƱΤޤޤޤ

#41876
դĹʬषƿˡ
ͥνȡ 65ڡ 13:01:57 MAIL:uchi@sco.bekkoame.ne.jp 41881
̴
ʤuchinyanͤγǴޤͤʸ˴տ夲ޤ
ǼĤdzͤƤ뤳ȤǤʤäΤǤ
uchinyanͤƬ̸ޤ
ʬפꤤ夲ޤ
ٻΤ桡 65ڡ 15:28:35 41882
???
Option Explicit
Sub Macro1()
Cells(1, 1).Value = 0
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim n As Integer, deta As Integer
Dim j As Integer, jj As Integer
For a = 2 To 6
For b = 2 To 6
For c = 2 To 6
d = 12 - a - b - c
If 2 <= d And d <= 6 Then
deta = 0: j = 1
While deta = 0 And j <= 8
Select Case j
Case 1: n = 1000 * a + 100 * b + 10 * c + d
Case 2: n = 1000 * b + 100 * c + 10 * d + a
Case 3: n = 1000 * c + 100 * d + 10 * a + b
Case 4: n = 1000 * d + 100 * a + 10 * b + c
Case 5: n = 1000 * d + 100 * c + 10 * b + a
Case 6: n = 1000 * c + 100 * b + 10 * a + d
Case 7: n = 1000 * b + 100 * a + 10 * d + c
Case Else: n = 1000 * a + 100 * d + 10 * c + b
End Select
jj = 1
While deta = 0 And jj <= Cells(1, 1).Value
If Cells(jj, 2).Value = n Then deta = 1
jj = jj + 1
Wend
j = j + 1
Wend
If deta = 0 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = 1000 * a + 100 * b + 10 * c + d
End If
End If
Next c
Next b
Next a
End Sub
65ڡ 16:18:45 41883
ޤ
꤬888ˤǤɤä褦ʵΤϡͤǤ礦ġ (^^;
65ڡ 20:51:35 41884
ϥ饮㡼ƥ
٤ޤץǤȤȤޤä
ʤȤ狼äƸǧǤ
66ʶ 19:23:15 HomePage:湩ؤ˥41885