ߤ뤯
񤷤äǤȤȤǽοʬ֤ϰ̣狼ʤäȤ
AAAAABAAAAABA
AAAAABAAAAABAAAAAAB
AAAAABAAAAABAAAAAABAAAAABAAAAAޤǰפ
912ڡ 0:21:17 40878
abcba@baLLjugglermoka
ϡ132=26ޤͤʴְ㤤򤷤ΤϼʬΤޤ󡣷ɡ#40878ȷ̤ʤޤ
912ڡ 0:39:42 40879

ʲΤ褦ˤʤޤ
777776 7777767 |777776 7777767 |7777 767
777776 7777767 777776 | 7777767 7777 67

񤭽ФĴ٤ޤ
٤ְ㤨ޤ
񤷤
912ڡ 1:16:00 HomePage:40880

Ϥ26ĤǰʲΤ褦֤롣
1234561234561/1234561234561/1234561
1234561234561123456/12345612345611
ȤӤθ2=1, 3=2, 4=3, 5=4ޤǤǤʤ
16٤ƤƱˤʤäƤޤΤǡ
񤷤äǤ
912ڡ 2:34:25 40881

Ժ򡣶路ޤ
912ڡ 2:38:40 40882
ϥ饮㡼ƥ
ᤦޤ狼ޤǤ
912ڡ 5:58:57 HomePage:湩ؤ˥40883

19ĤȤ³Xˡ13ĤȤ³ʣ١ˤΰʬκ19ĤȤ³θ6ʬˤȤ롣
X=77 7Ǥդο7ʬ)
=777
Ȥʤ롣
ǤƱ³褦Xκ4ܤΣȣ٤κ47ƱˤƤ뤿ᡢ71Ȥȡ(1Ǥդοʬ
X=11
=111
Ȥʤ롣
Xκ67ܤΣ1ȣ٤κ67ܤ1ο
1=1
1=1
Ȥ
1=1ȤƱ³ȣƱȤʤꡢX٤ȤƤƱοȤʤ롣
äơ11Ʊ³ˤϡ=111111ƱˤȤ
1=111111
1=111111
Ȥʤꡢ5Ʊ³뤳ȤǤ롣
äơX٤ˤơ11κˤϤ줾1641=25ĤοΤǷ30ġ
Ǥ⡢äȥåꤷˡΤǤ礦͡
912ڡ 11:22:08 40884
uchinyan
Ϥˤϡơϡ
ϡѥΤ褦ʴФǤäͤв򤱤ڤǤʴǡ

ޥ뤵ο 13 Ĥο η֤Ȥơ
򡤥ޥ뤵󡤥ȥ⥨󡤤νˡ13 ĤĶڤä¤٤ȡ


ȤʤäƤޤ
ǡ⤷33 ܰʾޤǤƱäȤȡʤȤ 33 ܤޤƱʤΤǡ



ĤƱˤʤΤǡ٤ƤοƱˤʤäƤޤ13 ĤȤ˷֤Ȥ̷⤷ޤ
26 ܤޤƱϾĤĤʤΤǡ̷⤷ޤ
ǡ33 ܤ缡Ʊˤʤ򸺤餷Ƥȡ
32 ܤޤ



٤ƤοƱˤʤꡤԲġ
31 ܤޤ



٤ƤοƱˤʤꡤԲġ
30 ܤޤ



ȥǤĤΥ롼ƱΤʤ
Ūˤϡ


Ǥ͡
ȤȤǡ 30 ܤޤǡȤȤˤʤޤ
ͥνȡ 912ڡ 11:56:27 40885
uchinyan
ǼĤɤߤޤ

ĿŪˤ礷ͽμʤѥΤ褦Ū˹ͤڤǡˤϴñʡȻפäΤǤ
ʤäƤ빽¿褦ǤޤΤˡعǽ褦ʴǤϤʤǤ͡

ԺäݤΤʤȤ񤭹ߤ¿ΤǤŪˤϡ¤٤Ƥߤ¤Ĵ٤Ƥߤ롤ȤˡΤ褦Ǥ

ʤab ߤǡȤơa + b - 2ʡȤפΤǤˤϥʤ
ͥνȡ 912ڡ 12:24:07 40888
ؽ
ʲˡäƤ뤫ʤġ
ޥ뤵ΣĤ򡤥 η֤Ȥޤ
ȥ⥨ΣĤ򡤥ĥƥȥʥ˥̥ͥΥϥҥեإۥޥߥ η֤Ȥޤ
⤷ο٤ưäƤȤ顤 ܣᣳࡣ
⣲ͤκǽοϥȥʤΤǰäƤ뤳Ȥˤʤꡤǽ餫飰(!)ޤǤפƤޤ

ǡȥ⥨κǽοǤ롤 ˤȡϣˤʤꡤǽ餫飱ܤޤǤפޤ
ˡȥ⥨ΣܤοǤ롤 ˤȡϣˤʤꡤǽ餫飲ܤޤǤפޤ
Ʊͤ³ƤȡˤʤäȤǽ餫飳ܤޤǤפ뤳Ȥˤʤޤ
򣱼ˤä顤٤ƤοƱˤʤä㤦Τǥᡣ
äơϣܤޤǡ
Ĥޤꡤܣݣ뤳Ȥˤʤޤ
912ڡ 13:18:08 40889
⡼ޥ
äȵդޤ ^^;v
ɤʤȽŤʤäƤ뤫⤷ޤ󤬥 Orz

6 6 1/6 6 [1/6] 6 1 /
6 6 1 6/6 [6 1] 6/6
Ťʤͤ...
[ ] ʬǤФ...
1/111112
111112/1
ΤȤʤ...4ĤޤǽŤʤΤ...
4*6+1+1+4=30

...
661661
66166616
...25ȻפǤޤ...^^;;
912ڡ 13:32:21 40890
̴
ǽդɤʬ餺ϤΨҤɤ㤤񤷤
Ƥѡ˽񤭽ФƤߤȡճȴñ25ȡ̵
0000010000011Ǥʤ0000010000010Ǥȡ30ˤʤꡢաǤ
ͤʥˡޥͤϤɤΤ褦ˤƹͤΤǤǾι¤򶵤ĺʤޤͤǤ衦
912ڡ 17:56:22 40891

ĤäǤ롢īȣǤ
ߤʤƱ褦ʻԺߤʤβܤλ֤򤫤ƤäȤȤȤǤ礦
ǽ飱ĤabcdefghijklmȤ
Ĥa b c d e f g h i j k l m a b c d e f
a=bcȿμ򸺤餷Ƥ˽۴Ĥ뤿ˤϺ㣲ʸǤȤ狼ޤ㤨УĤϡaaaabaaaaabaaη
˰㤦ʸ塢֤Ʊʸ³ܡ򣴡ĤΤΤ򣴡ɽƹͤޤ
ĤΣΤȤϣĤκǸΣȺǽΣ¤ˤʤΤǤΥѥơ
٤
Υѥ󤬺Ĺפ뤳Ȥˤɤ夭ޤ
餿ƤʬDz򤤤Ƥޤߤʤ󡢤ƤäƤޤޥ뤵ϤǤ͡
912ڡ 21:04:12 40892

󤫡
913ʶ 8:23:10 MAIL:yasuhirovich@oboe.ocn.ne.jp 40893
???
Option Explicit
Dim a(13) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim onaji As Integer, j As Integer
a(n) = 0
While a(n) <= 2
If n < 13 Then
Call saiki(n + 1)
Else
onaji = 0
For j = 2 To 13
onaji = onaji - (a(1) = a(j))
Next j
If onaji < 13 - 1 Then
Call check(1)
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Sub check(ByVal x As Integer)
Dim b(19) As Integer, dame As Integer, j As Integer
For j = 1 To 19
b(j) = a(((j - 1) Mod 13) + 1)
Next j
dame = 0: j = 20
While dame = 0 And j <= 100
If a(((j - 1) Mod 13) + 1) <> b(((j - 1) Mod 19) + 1) Then
dame = 1: j = j - 1
Else
j = j + 1
End If
Wend
If dame And Cells(1, 1).Value < j Then
Cells(1, 1).Value = j
For j = 1 To 19
If j <= 13 Then
Cells(1, j + 1).Value = a(j)
End If
Cells(2, j + 1).Value = b(j)
Next j
End If
End Sub
913ʶ 12:14:33 40894

޵ŤΤǤȼդΤΤˤʤäƤޤ͡
913ʶ 23:54:23 40896
ߤ
äѤǥåפϳ꤫ȻפĤ
֣ڼȣڼȤ߹碌ǤǤʤۤǺǤ⤤Τϡʡ˱ߤǤ롣
־ʲʤ˾Ψ褻γۤΣ̤ڤΤƤ᤹ۤΤȤ롣
ԤξΨλǤ⣸ˤʤäƤǤ¸ߤʤۤǺǾΤΤϡʡ˱ߤǤ
־Ǥ˥åפʹߤˣ륹ѡ㤤ʪ򤹤ȡʲʤѤʤȤ
٤ƻʧۤϾ夬뤫뤫
ȤäͤƤޤΤϤϤ俦¤ȤĤʤǤ礦
914ڡ 1:42:16 40897
ǥ
13򥢥19򥢥Ȥƹͤơ󤵤롣31ܤǥ==,,,,,==Ȥʤꡢ13,19μȤʤʤΤǡΰ30
915 23:49:52 40898
ޥ
ꡢΥꥸʥǤϤޤ...إԥåΤɤäιͽҼڤޤΡɤΤǤʤʤ....
iMac 917ʲС 12:02:47 HomePage:40899