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
¾ÅÆî¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 0:08:09¡¡¡¡ ¡¡¡¡40274
¤è¤¦¤»¤ó
1¤«¤é10¤ò½çÈ֤˽ñ¤¤¤¿»þ¤À¤í¤¦¤Ê¡¢¤È»×¤Ã¤¿¤Î¤Ë²¿¸Î5¡Á34¤È¹Í¤¨¤Æ¤·¤Þ¤Ã¤¿¤Î¤«Ê¬¤«¤é¤Ê¤¤¤Ç¤¹orz

30¤ÇÁ÷¤Ã¤Æ¤«¤é¤·¤Ð¤é¤¯ÌÂÁö¤·¤Æ¤¿orz

Àè½µ¤ÎÌäÂê¤ÏÀµ²ò¤¬¼è¤ê¾Ã¤µ¤ì¤ÆºÆÄ©À魯¤ëµ¤Ìµ¤¯¡¢¤º¤Ã¤Èº£½µ¤ÎÌäÂê¤òÂԤäƤޤ·¤¿(´À
Ãϵ塡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 0:14:58¡¡¡¡ ¡¡¡¡40275
¥¹¥â¡¼¥¯¥Þ¥ó
Â礭¤µ¤Î½ç¤Ëʤ٤¿¤È¤­...
Á°È¾¤Î5¸Ä¤Î¤¤¤º¤ì¤«¤È¡¢¸åȾ¤Î£µ¸Ä¤Î¤¦¤Á¤Î£´¸Ä¤È¤ÎϤÏɬ¤º°Û¤Ê¤ë¤Î¤Ç...5^2=25¼ïÎà¤ÏºÇÄã°Û¤Ê¤ë¤Ï¤º...^^;
¤Ã¤Æ¤¤¤¦¤¤¤¤²Ã¸º¤µ...Orz¡Á
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 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+1¡á25Ä̤ê¤Ç¤­¤ë¤Ç¤¤¤¤¤Î¤«¤Ê¡£
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 2:48:58¡¡¡¡ HomePage:¿ôÜÛ¡¡¡¡40277
fumio
¡Ö¤³¤ó¤Ð¤ó¤Ï¡×or¡Ö¤ª¤Ï¤è¤¦¤´¤¶¤¤¤Þ¤¹¡×¤É¤Á¤é¤¬¹ç¤¦»þ¹ï¤Ê¤Î¤Ç¤·¤ç¤¦¡©
¸¤¤Î»¶Êâ¹Ô¤Ã¤Æ¤­¤Þ¤·¤¿¡£¤Ï¤Ï¤Ï¡£¤Ç¤Ï¤Ç¤Ï¡¢¤Þ¤¿¤Í¡£
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 4:26:37¡¡¡¡ ¡¡¡¡40278
¤¢¤á¤¤
´¶ÁۤޤǴޤá¤Æ¿ôÜÛ¤µ¤ó¤ÈƱ¤¸¤Ç¤¹¡££±¡Á£±£°¤Ç¤È¤ê¤¢¤¨¤º£²£µÄ̤ê¤È¤Ç¤¿¤Î¤Ç¤¹¤¬¡¢µ­Æþ¤¹¤ë¿ô¤ò¹©Éפ·¤Æ¡¢¤³¤ì¤ò²¿½è¤Þ¤Ç¸º¤é¤»¤ë¤«¤òÌ䤦ÌäÂê¡Ê¤³¤Î»þÅÀ¤Ç¤ÎͽÁۤϣ²£°Ä̤꤯¤é¤¤¡Ë¤À¤È»×¤¤¡¢¥Õ¥£¥Ü¥Ê¥Ã¥Á¿ô¡¢£²¤ÎÎ߾衢¡¦¡¦¡¦¡¦¤È¤¤¤í¤¤¤íÄ©À路ºÃÀÞ¡¢¤È¤ê¤¢¤¨¤ºÁ÷¤Ã¤¿£²£µ¤Ç¤³¤³¤ËÆþ¤ì¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£ÌäÂê¤Î¤â¤Ã¤¿¤¤¤Ö¤Ã¤¿¸À¤¤Êý¤Ï¥Þ¥µ¥ë¤µ¤ó¤Î¿´ÍýºîÀï¡©¡Ê¤±¤Ã¤³¤¦¹¥¤­¤Ç¤¹¤±¤É¡Ë¡£
µÕ¤Ë¿ô¤òÁª¤Ù¤Ð¡¢Ï¤¬Á´Éô°Û¤Ê¤ë¤è¤¦¤Ê¤â¤Î¤â¤Ç¤­¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 6:57:40¡¡¡¡ ¡¡¡¡40279
¥Ï¥é¥®¥ã¡¼¥Æ¥¤
¤ª¤Ï¤è¤¦¤´¤¶¤¤¤Þ¤¹¡£Åö¤Æ¤º¤Ã¤Ý¤¦¤Ç¤¹¡£
»³¸ý¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 7:41:01¡¡¡¡ HomePage:À©¸æ¹©³Ø¤Ë¥Á¥ã¥ì¥ó¥¸¡¡¡¡40280
¥¹¥â¡¼¥¯¥Þ¥ó
#40279
¤¿¤È¤¨¤Ð...2¿ÊË¡¤ÎÎó¤Ê¤é¤¹¤Ù¤Æ°Û¤Ê¤ê¤Þ¤¹¤è¤Í¡©
1,2,4,8,16,32,64,128,256,512
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 8:32:18¡¡¡¡ ¡¡¡¡40281
Mr.¥À¥ó¥Ç¥£
10¸Ä¤Î¿ô¤¬Åùº¹¿ôÎó¤ò¤Ê¤¹Ï¢Â³¤¹¤ë10¹à¡¡¤Ç¤¢¤ì¤Ð¡¢1¡Á10¤Ç¤Ê¤¯¤È¤â¡¡4¤Ä¤Î¿ô¤ÎϤÏ25¼ïÎà¤È¤Ê¤ë¤Î¤«¤Ê¡¦¡¦
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 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
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 12:01:04¡¡¡¡ ¡¡¡¡40283
¼¡ÏºÄ¹
²ò¤±¤Ê¤¤»þ¤Ï¡¢ºåµÞÅż֤ÎÃæ¤Ç¹Í¤¨¤ë¡£»ä¤ÎÄêÈ֤Ǥ¹¤¬¡¢º£²ó¤Ï¡¢»ä¤â1¡Á10¤Ç¡¢25Ä̤ê¤È½Ð¤·¤Þ¤·¤¿¤¬¡¢ºÇ¾®¤Î³Îǧ¤¬¼è¤ì¤Ê¤¤¡£ºÇ¶á³Ð¤¨¤¿¥Õ¥£¥Ü¥Ê¥Ã¥Á¡©¡¢¤¤¤ä2¤ÎÎ߾衢¤È¤«¹Í¤¨¤¿¤±¤É¡¢¤É¤ì¤â¥À¥á¡£Ç§¾Ú¤Î¤¿¤á¤Ë¡¢¤ï¤¶¤ï¤¶²ñ¼Ò¤Ø½Ð¼Ò¤·¤Þ¤·¤¿¡£
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 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 Ä̤ꡤ¤Ç¤¹¤Í¡£
¥Í¥³¤Î½»¤à²È¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 13:04:50¡¡¡¡ ¡¡¡¡40285
uchinyan
·Ç¼¨ÈĤòÆɤߤޤ·¤¿¡£
1 ¡Á 10 ¤Ç¹Í¤¨¤ë¡¤¤È¤¤¤¦¤³¤È¤Ç¡¤º£²ó¤â³§¤µ¤óƱ¤¸¤è¤¦¤Ç¤¹¡£
¥Í¥³¤Î½»¤à²È¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 13:15:08¡¡¡¡ MAIL:uchi@sco.bekkoame.ne.jp ¡¡¡¡40286
¥Ú¥ë¥½¥Ê
¤³¤ì¤Ï²¿¤È¤â¸À¤¨¤óÌäÂê
¡¡¡¡ 2·î7Æü¡ÊÌÚ¡Ë 15:06:55¡¡¡¡ ¡¡¡¡40287
¤¢¤ß¡¼
ÀѤǤ⣲£µ¼ïÎà¤Ç¤¹¤Í¡£
ÀѤ¬¤¹¤Ù¤Æ°Û¤Ê¤ë¤è¤¦¤Ë¤¹¤ëϤκǾ®¡¤¤À¤È£±¤ÈÁÇ¿ô£¹¸Ä¤«¤È»×¤Ã¤¿¤±¤É¡¢ÌÀ¤é¤«¤Ë
1,2,4,16,3,9,5,7,11,13¤È¤«¤ÎÊý¤¬¾®¤µ¤¤¤«¤Ê¡£¡£¡£¤è¤¯¤ï¤«¤é¤ó¤±¤É
¡¡¡¡ 2·î8Æü¡Ê¶â¡Ë 0:37:35¡¡¡¡ ¡¡¡¡40288
¤¢¤á¤¤
¥¹¥â¡¼¥¯¥Þ¥ó¤µ¤ó¡¢uchinyan¤µ¤ó¡¢Ï¤¬Á´Éô°Û¤Ê¤ëÎã¡¢¶µ¤¨¤Æ¤¤¤¿¤À¤­¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£
¡¡¡¡ 2·î8Æü¡Ê¶â¡Ë 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Ä̤ê¤Ç¤¹¤Í¡£
¡¡¡¡ 2·î8Æü¡Ê¶â¡Ë 9:52:17¡¡¡¡ ¡¡¡¡40290
¤¢¤ß¡¼
¤¹¤Ù¤Æ°Û¤Ê¤ëºÇ¾®¤Î¿ô¤Ï¡¤Ä¾´¶¤Ç¤Ï
£±¡¤£²¡¤£´¡¤£¸¤Î¸å¤Ï¡¤Ä¾Á°£´¿ô¤ÎϤʤó¤À¤±¤É¡¤¤É¤¦¤Ç¤·¤ç¤¦¤Í¡£
£±¡¤£²¡¤£´¡¤£¸¡¤15¡¤29¡¤¡Ä¡©
¤½¤ì¤è¤ê¾®¤µ¤¯¤â¤Ç¤­¤ë¤«¡£¤Ï¤Æ¡£

¤¢¤Î¸åÀѤΥ±¡¼¥¹¤ò¹Í¤¨¤¿¤±¤É¡¤·ë¶ÉƱ¤¸·ëÏÀ¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
¡¡¡¡ 2·î11Æü¡Ê·î¡Ë 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

¤â¤Ã¤È¾®¤µ¤¤¤Î¤â¤¢¤ë¤«¤â¤Ç¤¹¤¬¡¢¡¢¡¢
¡¡¡¡ 2·î12Æü¡Ê²Ð¡Ë 18:20:49¡¡¡¡ ¡¡¡¡40292