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 |