xxx
ǼĤΥѥɤޤ5/8ˤʤäƤޤפǤ礦
1129ڡ 0:09:43 40029

ʬڤʤäΤ˰̤Ȥäƥå
ǯܤʡ
1129ڡ 0:12:22 40030
xxx
ޥ뤵password5/8()ˤʤäƤǤ
1129ڡ 0:33:14 40031
Ĺ
եܥʥåȤʬޤܤΤ˺Ƥޤ
Ϥޤޤġ 1129ڡ 6:56:44 HomePage:åλؤ40032
fp
701 ȤۤƱǤֹ͡᤿Ǥ礦
1129ڡ 7:32:48 40033
ޥ
ϤꤷƤޤ...ä˺Ƥޤ....orz ʤʵϤơĴ٤ꤷǤm(__)m
iMac 1129ڡ 7:55:59 HomePage:40034
Mr.
ĤθĿAnȤȡAnĤΤΤ
ʣAn-2ĤΤΤαüȰۤʤΣĤ򱦤ɲä
ʣAn-1ĤΤΤαüȰۤʤΣĤ򱦤ɲä
ʬव뤫
AnAn-1A2
A12A24
˴Ťƽ缡׻ޤ
701 򤤤ϤǤޤäĤޤǤ
1129ڡ 8:33:28 40035
Mr.ǥ
#40035̾ϡMr.ǥǤϿƤʤäΤѹǤ
1129ڡ 8:37:30 40036
ϥ饮㡼ƥ
ץǤץǤ89ȤʤäƤꡢ褯狼ޤ2ܤɬפä褦Ǥ
1129ڡ 11:45:24 HomePage:湩ؤ˥40037
uchinyan
Ϥˤϡơϡ
μŪ褯ǡˤˤʤޤ͡βˤ⤢ä褦ʵ
ʴǡ

Ф 10 ¤٤ 8 ܤ 9 ܤʬष 10 ܤͤȡ
-> -> -> -> -> 򡤹 ->
ǽǤΤ㤨(¾Ȥ߹碌Ǥǽʾ礬ޤ̤ƱǤ)
+ + + = 9 ¤٤ξο
+ = 8 ¤٤ξο
ȤʤΤǡ
10 ¤٤ξο = 9 ¤٤ξο + 8 ¤٤ξο
δط 9 İʲξƱͤˤΤǡ̤ˡ
Ĥξ = - 1 Ĥξ + - 2 Ĥξ
1 ġ2 ĤξϼºݤĴ٤ɬפꡤ1 Ĥξ = 22 Ĥξ = 4Ǥ
ǡ10 Ĥξϡ
3 Ĥξ = 2 Ĥξ + 1 Ĥξ = 4 + 2 = 6
4 Ĥξ = 3 Ĥξ + 2 Ĥξ = 6 + 4 = 10
5 Ĥξ = 4 Ĥξ + 3 Ĥξ = 10 + 6 = 16
6 Ĥξ = 5 Ĥξ + 4 Ĥξ = 16 + 10 = 26
7 Ĥξ = 6 Ĥξ + 5 Ĥξ = 26 + 16 = 42
8 Ĥξ = 7 Ĥξ + 6 Ĥξ = 42 + 26 = 68
9 Ĥξ = 8 Ĥξ + 7 Ĥξ = 68 + 42 = 110
10 Ĥξ = 9 Ĥξ + 8 Ĥξ = 110 + 68 = 178
Ĥޤꡤ178 ̤ꡤˤʤޤ

פϡܤϥեܥʥåǤ͡
ͥνȡ 1129ڡ 11:46:37 MAIL:uchi@sco.bekkoame.ne.jp 40038
???
Option Explicit
Dim a(10) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim QX As Integer
Dim j As Integer
a(n) = 0
While a(n) <= 1
If n <= 2 Then
QX = 1
ElseIf a(n - 2) = a(n - 1) And a(n - 1) = a(n) Then
QX = 0
Else
QX = 1
End If
If QX Then
If n < 10 Then
Call saiki(n + 1)
Else
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 10
Cells(Cells(1, 1).Value, j + 1).Value = ishi(a(j))
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function ishi(ByVal n As Integer) As String
If n = 0 Then
ishi = ""
Else
ishi = ""
End If
End Function
1129ڡ 11:58:20 40039
Namba
Ʊ褦˥եܥʥåDz򤱤ޤ

ޤȤäƤͤƸޤ
5ܤξ4ܡ3ܡĤνǼޤäƤߤ
4ܤȤʤΤ3̤ꡢ4ܤȤʤΤ5̤η8̤ꡣ
Ʊͤ6ܡ7ܡĤνǼޤäƤߤ
6ܤȤʤΤ5̤ꡢ6ܤȤʤΤ8̤η13̤ꡣ
ä1ܤ10ܤޤǤͤ813104̤Ȥʤ뤬4ܡ5ܡ6ܤ٤ƹȤʤ3515̤89̤ꡣ
5ܤξƱʤΤ892178̤ꡣ
1129ڡ 12:02:12 40040
uchinyan
ǼĤɤߤޤϤꡤˤä褦Ǥ͡
󡤥եܥʥå󡤼¤ϤΣܤǤ˵դƲ򤤤褦Ǥ

񤭹ޤƤˡήǤ¤ϡȤ߹碌 nCr Ȥä׻

(10C0 + 9C1 + 8C2 + 7C3 + 6C4 + 5C5) * 2 = (1 + 9 + 28 + 35 + 15 + 1) * 2 = 89 * 2 = 178 ̤

⤢ޤޤܺ٤ϳˤǤޤ (^^;
ͥνȡ 1129ڡ 12:06:25 40041
ߤ
֤ɡޤ­ΤϷ׻ְ㤤ݤΤǰ칩ס

ɥߥΤζΤ褦ˡˡˡʹˡʹˤΣѰդ
ˤɤζ֤뤫ʬषޤУܤޤǷ׻
Τǡäȳڡ
1129ڡ 19:17:19 40042
xxx
˻Ĥ򤤤Ȥǡեܥʥå
ȤääǤ׻Ǥޤ...^^;
1129ڡ 22:29:00 40043
Ȥ
basic
0,1򤽤줾,Ȥ

LET s=0
FOR a=0 TO 1
FOR b=0 TO 1
FOR c=0 TO 1
IF (c=0 AND b=0 AND a=0) OR (c=1 AND b=1 AND a=1) THEN GOTO 80
FOR d=0 TO 1
IF (c=0 AND b=0 AND d=0) OR (c=1 AND b=1 AND d=1) THEN GOTO 70
FOR e=0 TO 1
IF (c=0 AND e=0 AND d=0) OR (c=1 AND e=1 AND d=1) THEN GOTO 60
FOR f=0 TO 1
IF (f=0 AND e=0 AND d=0) OR (f=1 AND e=1 AND d=1) THEN GOTO 50
FOR g=0 TO 1
IF (f=0 AND e=0 AND g=0) OR (f=1 AND e=1 AND g=1) THEN GOTO 40
FOR h=0 TO 1
IF (f=0 AND h=0 AND g=0) OR (f=1 AND h=1 AND g=1) THEN GOTO 30
FOR i=0 TO 1
IF (i=0 AND h=0 AND g=0) OR (i=1 AND h=1 AND g=1) THEN GOTO 20
FOR j=0 TO 1
IF (i=0 AND h=0 AND j=0) OR (i=1 AND h=1 AND j=1) THEN GOTO 10
LET s=s+1
10 NEXT j
20 NEXT i
30 NEXT h
40 NEXT g
50 NEXT f
60 NEXT e
70 NEXT d
80 NEXT c
90 NEXT b
100 NEXT a
PRINT s
END

f9178()
˭ԡ 1130ʶ 8:43:29 MAIL:fttnm528@ybb.ne.jp 40044

ܤ򤫤ϤޤäơȤͭ̾1,2,3,5ĤΥѥΥեܥʥå
ϤޤΤƱͤˤΤǡեܥʥå2ܤȹͤޤ
1130ʶ 14:39:48 40045
Ф
եܥʥåǤФƱɤʬषƹͤޤ
ֺǸФФƱΣĤ¤[n]ФȰ㤦Ĥ¤[n]Ȥȣ[2]ᣲ[2]ᣲ[n+1]b[n][n+1][n]ܣ[n]Ȥˤʤޤ
122 1:15:58 40046
hirorisuu
ExcelǷ׻褦ȻפޤְäΤǤޤ
ɥեܥʥåDz򤭤ޤ
124ʲС 23:02:50 40047
fumio
ФϡǤ͡
ǤϤǤ
125ʿ 0:30:34 40048