kasama
25̤꤫ʤ
10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34
27ڡ 0:08:09 40274

110֤˽񤤤ʡȻפäΤ˲534ȹͤƤޤäΤʬʤǤorz

30äƤ餷Ф餯Ƥorz

轵򤬼äƺĩ魯뵤̵äȺԤäƤޤ(
ϵ塡 27ڡ 0:14:58 40275
⡼ޥ
礭ν¤٤Ȥ...
Ⱦ5ĤΤ줫ȡȾΣĤΤΣĤȤ¤ɬۤʤΤ...5^2=25ϺۤʤϤ...^^;
äƤø...Orz
27ڡ 0:32:46 40276

ȤСɤ1,2,3,4,5,6,7,8,9,10Ȥ
4ĤΥɤκǾͤ10(1+2+3+4)ͤ34(7+8+9+10)ʤΤǡ
34-10+125̤ǤǤΤʡ
27ڡ 2:48:58 HomePage:40277
fumio
֤Фϡor֤Ϥ褦ޤפɤ餬礦ʤΤǤ礦
λԤäƤޤϤϤϡǤϤǤϡޤ͡
27ڡ 4:26:37 40278

ۤޤǴޤƿۤƱǤǤȤꤢ̤ȤǤΤǤפơ򲿽ޤǸ餻뤫䤦ʤλǤͽۤϣ̤꤯餤ˤȻפեܥʥå߾衢Ȥĩ路ޡȤꤢäǤƤޤޤΤä֤äϥޥ뤵οʤäǤɡˡ
դ˿٤С¤ۤʤ褦ʤΤǤΤǤ礦
27ڡ 6:57:40 40279
ϥ饮㡼ƥ
Ϥ褦ޤƤäݤǤ
27ڡ 7:41:01 HomePage:湩ؤ˥40280
⡼ޥ
#40279
Ȥ...2ˡʤ餹٤ưۤʤޤ͡
1,2,4,8,16,32,64,128,256,512
27ڡ 8:32:18 40281
Mr.ǥ
10ĤοʤϢ³10ࡡǤС110ǤʤȤ⡡4Ĥο¤25ȤʤΤʡ
27ڡ 11:47:15 40282
???
Option Explicit
Const max As Long = 20
Dim a(10) As Long
Dim b(4) As Integer
Dim c(max * 4) As Long
Sub Macro1()
Cells(1, 1).Value = 1000000
Call saiki1(1)
End Sub
Sub saiki1(ByVal n As Integer)
Dim j As Long
If n = 1 Then
a(1) = 1
Else
a(n) = a(n - 1) + 1
End If
While a(n) <= max
If n < 10 Then
Call saiki1(n + 1)
Else
For j = 1 To max * 4
c(j) = 0
Next j
Call saiki2(1)
c(0) = 0
For j = 1 To max * 4
c(0) = c(0) + c(j)
Next j
If Cells(1, 1).Value > c(0) Then
Cells(1, 1).Value = c(0)
For j = 1 To 10
Cells(2, j).Value = a(j)
Next j
Rows("3:3").Select
Selection.ClearContents
Range("A1").Select
c(0) = 0
For j = 1 To max * 4
If c(j) Then
c(0) = c(0) + 1
Cells(3, c(0)).Value = j
End If
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Sub saiki2(ByVal n As Integer)
Dim j As Integer
If n = 1 Then
b(1) = 1
Else
b(n) = b(n - 1) + 1
End If
While b(n) <= 10
If n < 4 Then
Call saiki2(n + 1)
Else
c(0) = 0
For j = 1 To 4
c(0) = c(0) + a(b(j))
Next j
c(c(0)) = 1
End If
b(n) = b(n) + 1
Wend
End Sub
27ڡ 12:01:04 40283
ϺĹ
򤱤ʤϡż֤ǹͤ롣֤Ǥϡ110ǡ25̤ȽФޤǾγǧʤǶФեܥʥå2߾衢ȤͤɡɤᡣǧڤΤˡ虜虜ҤؽмҤޤ
27ڡ 12:52:08 40284
uchinyan
Ϥˤϡơϡ
ؤˤʤäƤޤޤʴǡ

10 Ĥΰۤʤ 1 ʾ򾮤 a1 a10 Ȥޤ
餫ˡ
a1 + a2 + a3 + a4
< a1 + a2 + a3 + a5 < a1 + a2 + a3 + a6 < a1 + a2 + a3 + a7 < a1 + a2 + a3 + a8 < a1 + a2 + a3 + a9 < a1 + a2 + a3 + a10
< a1 + a2 + a4 + a10 < a1 + a2 + a5 + a10 < a1 + a2 + a6 + a10 < a1 + a2 + a7 + a10 < a1 + a2 + a8 + a10 < a1 + a2 + a9 + a10
< a1 + a3 + a9 + a10 < a1 + a4 + a9 + a10 < a1 + a5 + a9 + a10 < a1 + a6 + a9 + a10 < a1 + a7 + a9 + a10 < a1 + a8 + a9 + a10
< a2 + a8 + a9 + a10 < a3 + a8 + a9 + a10 < a4 + a8 + a9 + a10 < a5 + a8 + a9 + a10 < a6 + a8 + a9 + a10 < a7 + a8 + a9 + a10
ʤΤǡʤȤ 25 ̤ΰۤʤͤ¤¸ߤޤ
ǡ㤨Сa1 a10 1 10 ȤС¤ 10 34 25 ̤Ǥ
ǡۤʤ¤κǾ 25 ̤ˤʤޤ

ʤa1 a10 1 10 ǤʤȤʤФǤ͡
ޤϡ餫ˡ㤨 2^1 2^10 10C4 = 210 ̤ꡤǤ͡
ͥνȡ 27ڡ 13:04:50 40285
uchinyan
ǼĤɤߤޤ
1 10 ǹͤ롤ȤȤǡ⳧Ʊ褦Ǥ
ͥνȡ 27ڡ 13:15:08 MAIL:uchi@sco.bekkoame.ne.jp 40286
ڥ륽
ϲȤ
27ڡ 15:06:55 40287
ߡ
ѤǤ⣲Ǥ͡
Ѥ٤ưۤʤ褦ˤ¤κǾȣǿĤȻפäɡ餫
1,2,4,16,3,9,5,7,11,13Ȥʡ褯狼󤱤
28ʶ 0:37:35 40288

⡼ޥ󤵤uchinyan¤ۤʤ㡢Ƥ꤬Ȥޤ
28ʶ 0:58:18 40289
Namba
uchinyanƱˡǤ

a1 + a2 + a3 + a4
< a1 + a2 + a3 + a5 < a1 + a2 + a4 + a5 < a1 + a3 + a4 + a5 < a2 + a3 + a4 + a5 < a2 + a3 + a4 + a6 < a2 + a3 + a5 + a6
< a2 + a4 + a5 + a6 < a3 + a4 + a5 + a6 < a3 + a4 + a5 + a7 < a3 + a4 + a6 + a7 < a3 + a5 + a6 + a7 < a4 + a5 + a6 + a7
< a4 + a5 + a6 + a8 < a4 + a5 + a7 + a8 < a4 + a6 + a7 + a8 < a5 + a6 + a7 + a8 < a5 + a6 + a7 + a9 < a5 + a6 + a8 + a9
< a5 + a7 + a8 + a9 < a6 + a7 + a8 + a9 < a6 + a7 + a8 + a10 < a6 + a7 + a9 + a10 < a6 + a8 + a9 + a10 < a7 + a8 + a9 + a10

Ǥ25̤Ǥ͡
28ʶ 9:52:17 40290
ߡ
٤ưۤʤǾοϡľǤ
θϡľ¤ʤɡɤǤ礦͡
1529ġ
꾮Ǥ뤫Ϥơ

θѤΥͤɡƱˤʤޤ
211ʷ 18:00:17 40291
ޤ륱
֤٤ưۤʤǾοפȤơ10Ĥοκ礬ǾפȤơ
ʤθĤޤ
1 2 3 62 95 113 122 128 131 134

10ĤοιפǾפʤ顢
1 2 3 5 8 14 25 45 85 162

äȾΤ⤢뤫Ǥ
212ʲС 18:20:49 40292