ߤ뤯
4ĤʬŪʴ
1226ڡ 0:16:38 41266
ߤ
ΩΣ£ãġݣţƣǣȤγĺΰư֤ƹͤΤ䤹
ȯȤơ󤴤Ȥˤɤĺ˲̤ꤢ뤫ɤäƤ

ݣݣݣݣݣݣ
¡ݣݣݣݣݣݣ
áݣݣݣݣݣݣ
ġݣݣݣݣݣݣ
šݣݣݣݣݣݣ
ơݣݣݣݣݣݣ
ǡݣݣݣݣݣݣ
ȡݣݣݣݣݣݣ
1226ڡ 0:18:36 41267

3ܤ̲᤹Τ٤̤΢̡
٤̤˹Ԥ롼Ȥ7̤ꡢ΢̤˹Ԥ롼Ȥ6̤ʤΤǡ
7x7x3+6x6=183̤ꡣ
ǽ٤̤˹Ԥ롼Ȥ6̤ȻפϤޤäƤޤޤ
ɸ 1226ڡ 0:21:10 41268
kasama
פˡΩΤΣĤĺưƸäƤФ褤ΤǤ͡
٤夲ޤʤʤ˻餺ɥץǿ夲ޤ
1226ڡ 0:27:01 41269
CRYING DOLPHIN
ä㤪ڥѥʤΤˡ2228ϼʷ׻ߥ˵դΤ20ʬʾ夫ޤ(˴)

ˡϤߤ󤵤ȤۤƱ
ΩΤ5Ľ񤤤ơ1ø5øγĺ˹Ԥˡ̤ꤢ뤫񤭹ǡǸ613183̤ꡣ
ï⤤ʤԳϡ 1226ڡ 0:31:24 HomePage:֥⤢41270
Taro
415ƱʤΤ˻ϤɤƤʤˤäΤǤ礦
1226ڡ 0:35:28 41271
Mr.ǥ
դƤ̤ǹͤȤABCPPդ̤ͭQPȣܤƤ̤RP̤SȤȤ
P-Q(-P-Q-P-Q)-PȰư....3*1*3*1*327̤
P-Q(-P-Q-R-Q)-PȰư....3*1*3*2*236̤
P-Q(-R-Q-P-Q)-PȰư....3*2*2*1*336̤
P-Q(-P-Q-R-Q)-PȰư....3*2*2*2*248̤
P-Q(-R-S-R-Q)-PȰư....3*2*1*3*236̤
ס 2736*348183̤
Ȥޤ
1226ڡ 0:39:03 41272
⡼ޥ
Mr.ǥƱǤ

Ŵݤʬ䤷ơ

ݤΥȤ0ξ٤1,Ĥ꤬2
ݤ0бȤ1,ξ٤2,Ĥ꤬3(ݤ2бȤ)
οޤǹͤ^^;...

1010103x1x3x1x3x1=27
1012103x1x3x2x2x1=36
1210103x2x2x1x3x1=36
1212103x2x2x2x2x1=48
1232103x2x1x3x2x1=36

=3*36+26+48=183
1226ڡ 0:42:19 41273
pao
Ϥ̤κûΥ
̤򡡣4ȹͤ







Ϥ줾
̤
ȤƤη׻183̤Ȥޤ
ޤǤ͡
1226ڡ 0:43:00 41274

ܤϢABC颤ACD,ABEBCF
ܤϢACD颤ABC,ADE,CDF
΢ABC褦ȸ壳оηˤʤ褦ʼޤ
ϩΤ褦­򤷤Ƥäƣܤ΢ABC,ADE,CDF줾죶󤺤ĤǤΤǣˤʤޤ
Ƕɤߴְ㤨¿⣶ܤǽƢABCȴ㤤ƤΤǤ
ޥ뤵¾γ͡ǯ⣱ǯ֤꤬Ȥޤ褤ǯ
1226ڡ 2:20:56 41275
ǯ
ϤޤȴǤ
ΩΤĺ֡դưȸơդΤߤȤ硢դΤߡդȤȿ夲ޤ
Ĥĺ飳˰ư뤬оΤʤΤǡΤߤꤷƸǣܡ
ǽϣ줺­оΤξȥ޴ǣ䤷ƣϣˡդξΣबȴƤޤ
դΤߡࡡȤꡡաࡡȤ
աࡡȤꡡաࡡȤ
աࡡȤꡡաࡡȤ
ף
ξʤĤƤƤΤdzؽƤߤȻפޤ
1226ڡ 11:49:14 41276
uchinyan
Ϥˤϡơϡ
ϡȬΤ̤濴֤ΩΤˤʤꡤΩΤĺդ̤ưư褯ǡ
ºݡǤⲿ꤬ä褦˻פϢˤϴñäǤ礦
ˡϡϤäݤΤ餷ñǤʡʴ

ƲΰưȬΤΤ̤Τ¸ߤοϡ
βΰưǤ̤β̤Τ¸ߤο¤ˤʤäƤޤ
ǡǽ̤üˤ夫鸫ȿײ˾¦̤¤١
˲̤˹Ԥäƾ夫鸫ȿײ˲¦̤¤٤ɽȡ
001 000 000 000 000 000 000 000
000 001 000 001 000 001 000 000
003 000 002 000 002 000 002 000
000 007 000 007 000 007 000 006
021 000 020 000 020 000 020 000
000 061 000 061 000 061 000 060
183 000 182 000 182 000 182 000
ǡ183 ̤ꡤˤʤޤ

n ܤΰ̲ưפǤ֤͡󡤷ǼĤˤϵҤǤ礦顤ά
ͥνȡ 1226ڡ 12:20:14 MAIL:uchi@sco.bekkoame.ne.jp 41277
uchinyan
ǼĤɤߤޤ

#41266#41267#41270#41275#41277
Ʋγ̤Τ¸ߤοäݤ׻Ƥˡ
ΩΤ֤ƹͤ뤫ɤΥХꥨ󤬤ޤ

#41268
ܤˤɤˤ뤫Ǿʬƹͤˡ

#41272#41273#41274
ºݤ˰ưλĴ٥ѥ󲽤ʬषƷ׻ˡ

#41276
ΩΤ֤Ƥºݤΰưλۤʤդܿʬषƿˡ

#41269
ץˤˡ

ʤäȰճǤn ܤΰ̲ʤäΤǡ
#41277ɽɽˡǡ

n ΤȤ
0, (3^n + 1)/4, 0, (3^n + 1)/4, 0, (3^n + 1)/4, 0, (3^n - 3)/4

n ΤȤ
(3^n + 3)/4, 0, (3^n - 1)/4, 0, (3^n - 1)/4, 0, (3^n - 1)/4, 0

Ȼפޤ
ͥνȡ 1226ڡ 13:03:04 MAIL:uchi@sco.bekkoame.ne.jp 41278
???
Υޥ
Option Explicit: Dim a(6) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
a(0) = 1: a(6) = 1
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim j As Integer
a(n) = 1
While a(n) <= 8
If QX(a(n - 1), a(n)) Then
If n < 5 Then
Call saiki(n + 1)
ElseIf QX(a(5), a(6)) Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 0 To 6
Cells(Cells(1, 1).Value, j + 2).Value = s(a(j))
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function s(ByVal x As Integer) As String
Select Case x
Case 1: s = "ABC"
Case 2: s = "ACD"
Case 3: s = "ADE"
Case 4: s = "AEB"
Case 5: s = "BCF"
Case 6: s = "CDF"
Case 7: s = "DEF"
Case Else: s = "EBF"
End Select
End Function
Private Function QX(ByVal x As Integer, ByVal y As Integer) As Integer
Dim b As String
Dim j As Integer, jj As Integer, jjj As Integer
QX = 0
If x <> y Then
j = 1
While QX = 0 And j <= 3
b = Mid(s(x), j, 1) + Mid(s(x), (j Mod 3) + 1, 1)
jj = 1
While QX = 0 And jj <= 3
jjj = 1
While QX = 0 And jjj <= 3
If jj <> jjj Then If b = Mid(s(y), jj, 1) + Mid(s(y), jjj, 1) Then QX = 1
jjj = jjj + 1
Wend
jj = jj + 1
Wend
j = j + 1
Wend
End If
End Function
1226ڡ 14:06:57 41279
Ȥ
ȬΤ̤
ABC=1,ACD=2,ADE=3,ABE=4
FBC=5,FCD=6,FDE=7,FBE=8
ֹ򿶤äơbasic

FOR a=1 TO 1
FOR b=2 TO 5
if b=3 then goto 60
FOR c=1 TO 8
IF b=2 AND c<>1 AND c<>3 AND c<>6 THEN GOTO 50
if b=4 and c<>1 and c<>3 and c<>8 then goto 50
if b=5 and c<>1 and c<>6 and c<>8 then goto 50
for d=1 to 8
if c=1 and d<>2 and d<>4 and d<>5 then goto 40
IF c=2 AND d<>1 AND d<>3 AND d<>6 THEN GOTO 40
IF c=3 AND d<>2 AND d<>4 AND d<>7 THEN GOTO 40
if c=4 and d<>1 and d<>3 and d<>8 then goto 40
if c=5 and d<>1 and d<>6 and d<>8 then goto 40
if c=6 and d<>2 and d<>5 and d<>7 then goto 40
IF c=7 AND d<>3 AND d<>6 AND d<>8 THEN GOTO 40
IF c=8 AND d<>4 AND d<>5 AND d<>7 THEN GOTO 40
for e=1 to 8
if d=1 and e<>2 and e<>4 and e<>5 then goto 30
if d=2 and e<>1 and e<>3 and e<>6 then goto 30
IF d=3 AND e<>2 AND e<>4 AND e<>7 THEN GOTO 30
if d=4 and e<>1 and e<>3 and e<>8 then goto 30
if d=5 and e<>1 and e<>6 and e<>8 then goto 30
if d=6 and e<>2 and e<>5 and e<>7 then goto 30
IF d=7 AND e<>3 AND e<>6 AND e<>8 THEN GOTO 30
IF d=8 AND e<>4 AND e<>5 AND e<>7 THEN GOTO 30
for f=2 to 5
if f=3 then goto 20
if e=1 and f<>2 and f<>4 and f<>5 then goto 20
if e=2 and f<>1 and f<>3 and f<>6 then goto 20
IF e=3 AND f<>2 AND f<>4 AND f<>7 THEN GOTO 20
IF e=4 AND f<>1 AND f<>3 AND f<>8 THEN GOTO 20
IF e=5 AND f<>1 AND f<>6 AND f<>8 THEN GOTO 20
IF e=6 AND f<>2 AND f<>5 AND f<>7 THEN GOTO 20
IF e=7 AND f<>3 AND f<>6 AND f<>8 THEN GOTO 20
IF e=8 AND f<>4 AND f<>5 AND f<>7 THEN GOTO 20
FOR g=1 TO 1
LET s=s+1
10 next g
20 NEXT f
30 NEXT e
40 NEXT d
50 NEXT c
60 NEXT b
70 NEXT a
PRINT s
END

f9ơ183̤ꡦ()
˭ԡ 1226ڡ 17:05:50 MAIL:fttnm528@ybb.ne.jp 41280
ߡ
꤬ڤؤäƤΤ˵ŤäȥɤƤ
Ϥ褯ΤäƤ뤫顤30ä餤Dz򤤤ɡġ
פ֤˥餳μԤǤ()
ʤߤɽǤ
ư
ˤ롦21183
飴21183
飷60546
ˤ롦60
1226ڡ 19:18:44 41281
ߡ
ܼϡ#41277ƱǤ̤ĤޤȤƤΤפǤ
1226ڡ 19:20:25 41282
ϺĹ
֥åǤǸμʤǽ񤭽ФϤȡ4ܤ5ܤΰưˡޡ򤱤ɤäǤ
2֤餤ޤǯ⤪äˤʤޤ
1226ڡ 22:36:46 41283
̴
25ĥΦ˽ФƤꡢä˵פޤ5ܤȣܤΤäƤ̤񤭽ФȤ߹碌򣲡ܤŬѤ󤲤ޤ̤ߣȣ̤ߣäȤʤޤ
ޤ͡ǯΤƳ˴տ夲ȤȤˡǯ⤴Ƴꤤ夲ޤ
ٻΤ桡 1227ʶ 18:07:53 41284
ϥ饮㡼ƥ
ǯ⤢꤬Ȥޤ줫ꤤޤɤǯ򤪷ޤ
1228ڡ 19:00:02 HomePage:湩ؤ˥41285
uchinyan
ޤƤǤȤޤ
ǯϳڤ򤢤꤬Ȥޤ
ǯ⵹ꤤפޤ
ͥνȡ 11ʿ 13:19:20 MAIL:uchi@sco.bekkoame.ne.jp 41286
fumio
ޤƤǤȤޤ
ǯꤤޤ
ǣץեߡ׳ڤߤˤƤޤ
ŻХХĥޤϤϤϡ
ǤϤǤϡ
12ڡ 0:59:42 41287
Mr.ǥ
ǯޤƤǤȤޤ
ǯϢ³ڤ줽ˤʤԥˬ줿ΤΡȤۤ1ǯǤ
ǯ⻻ؤڤߤʤٶƤ餤פޤΤǡޥͤ͡ꤤޤ
12ڡ 2:01:22 41288
Ƿ
ǯڤߤˤƤޤ
597λȺ869󡢣ǯλвᤷơʵǼȤޤ
12ڡ 9:16:50 MAIL:kawada@med.gunma-u.ac.jp 41289

ޤƤǤȤޤ
ǯϥ饹ȣȤȤǯڤƤޤǯǯ̤ƤߤȻפäƤޤ
(Ϥ뤫Τ)塢⤷ⲿȤʤä򤤤Ƥʤȼ´Ǥꡢѥ֥դθΤȤ12᤮ˤϥѥ˺¤äƤꡢǯڤޤƤޤ
ǯꤤޤ
12ڡ 13:42:58 41290
⡼ޥ
ޤƤǤȤޤ
ǯ䤫狼ʤˤ֤Ĥޤ^^;
ͤΤϳڤΤǤ
Ӥäꤹ褦ʲˡ˿̥Ϥ⴮ޤ ^^
ǯn(_ _)n
12ڡ 20:25:19 41291
줰뤹
󡦶󤽤줾4̤Ĥʬܿޤ񤤤Ʋ򤭤ޤ
˸¤СѷDEF̤36̤ñ˲򤱤ޤ
2012ǯǻ򤤤ΤפФƲʤޤ
ƤǤ줫ꤤޤ
17ʲС 15:41:37 41292