|
10*10Ȼפä825ääƤޤäƤޤ |
726ڡ 0:35:22
39622 |
|
գΤޤäϡʣˤΣ̤
գΤޤäڤӤܤϣ̤ äơᣱʣˤΣ |
726ڡ 0:36:08
39623 |
Taro |
٤Фʤ800ǤȤޤ
>>39622Ʊ825㤤ޤ() |
726ڡ 0:42:51
39624 |
⡼ޥ |
뤵ƱǤä
ǼĤˤʤʤޤǤ...^^;...? 8^2+2*7^2+3*6^2+4*5^2+5*4^2+6*3^2+7*2^2+8*1^2=540 |
726ڡ 0:45:06
39625 |
ͣ.ǥ |
٤櫓ơ540̤ȽФΤǤ1դ
ܤθĿϡʤ켫ȤޤơˡĤ뤳Ȥ˵դ 뤵⡼ޥƱˡȤʤޤ ʤβˡ˵ŤΤ˻֤ݤꤹǤ⡢ٶˤʤޤ ԤޡʤǤѥʳƮ档Ф |
726ڡ 1:09:21
39626 |
ߤ |
դĹǾʬɡ֤ξ礬̤Ƥޤä
ʤʤޤǤ ֣դˣĤ¤֤ȤθĿפȤС ˤŪʤȻפޤ |
726ڡ 1:56:02
39627 |
|
641492363254165964718540
־ä˺Ƥޤ 쥬ȤǤ͡ |
726ڡ 4:13:10
HomePage:39628 |
|
٤Фʤ800СǤȤޤ
줫ꤤޤ |
726ڡ 4:15:01
HomePage:39629 |
(Keigei) |
͵Ǥ
http://blogs.yahoo.co.jp/oka_yadokary/11259537.html |
726ڡ 5:33:11
39630 |
abcba@baLLjugglermoka |
Ϥ褯֣륷פǤ͡#39623#39625ηǤ͡ |
726ڡ 9:10:19
39631 |
褦 |
̤1+4++64ġ45ٷƤΤ1+9+25+49ġ1:13:5ޤǤμФˤϺоΤΤΤΤ2ܡ540ġθȤȳڤǤ |
726ڡ 10:13:03
39632 |
ϺĹ |
ޤ夲ΤȤܤ䤭ʤ顦
ϳʤȯǽ夲ΤΡĤα 188ɤߴְ㤤530Ǥʤʤ˽ޤ礦 ϥޡȤʲˡٶΤϤ⤦ɤɡ |
726ڡ 10:25:09
39633 |
uchinyan |
Ϥˤϡ ơϡ
ϡ˲Ȥޤʤ꤫ͭ̾⡣ Ū˿Ǥ§ĤƸΨ褯ݥȤǤ͡ʴǡ (ˡ1) ΰդΡĺʿ˱ˡԤäƾˢ夬 /Ǿʬƿޤ ŪˤϤ뷹ǤվäƤ⤤Τǡ/ ʬʤΤĤǤ >= 9 ΤȤʤ = 8 ΤȤ = 0 ǡ1^2 = 1 ̤ꡣ = 7 ΤȤ = 0, 1 ǡ2^2 + 1^2 = 4 + 1 = 5 ̤ꡣ = 6 ΤȤ = 0, 1, 2 ǡ3^2 + 2^2 + 1^2 = 9 + 4 + 1 = 14 ̤ꡣ = 5 ΤȤ = 0, 1, 2, 3 ǡ4^2 + 3^2 + 2^2 + 1^2 = 16 + 9 + 4 + 1 = 30 ̤ꡣ = 4 ΤȤ = 0, 1, 2, 3, 4 ǡ5^2 + 4^2 + 3^2 + 2^2 + 1^2 = 25 + 16 + 9 + 4 + 1 = 55 ̤ꡣ = 3 ΤȤ = 0, 1, 2, 3, 4, 5 ǡ6^2 + 5^2 + 4^2 + 3^2 + 2^2 + 1^2 = 36 + 25 + 16 + 9 + 4 + 1 = 91 ̤ꡣ = 2 ΤȤ = 0, 1, 2, 3, 4, 5, 6 ǡ7^2 + 6^2 + 5^2 + 4^2 + 3^2 + 2^2 + 1^2 = 49 + 36 + 25 + 16 + 9 + 4 + 1 = 140 ̤ꡣ = 1 ΤȤ = 0, 1, 2, 3, 4, 5, 6, 7 ǡ8^2 + 7^2 + 6^2 + 5^2 + 4^2 + 3^2 + 2^2 + 1^2 = 64 + 49 + 36 + 25 + 16 + 9 + 4 + 1 = 204 ̤ꡣ ʾǤ٤ƤʤΤǡ 1 + 5 + 14 + 30 + 55 + 91 + 140 + 204 = 540 ̤ ˤʤޤ ǽ餫餽Τޤ¤ؤȡ 8^2 * 1 + 7^2 * 2 + 6^2 * 3 + 5^2 * 4 + 4^2 * 5 + 3^2 * 6 + 2^2 * 7 + 1^2 * 8 ˤʤޤ쥤ʼʤȻפǤ礦¤Ϥˤϰ̣äơβˡˤʤޤ (ˡ2) ʿǽĤľʰդ㤨СοޤΤ褦ξϰդǤͤ͡ȡ վĺȤϡʬȤޤƤ礦 ġ뤳Ȥʬޤ ʿǽĤľʰդΤϡοޤ (9 - ) * (9 - ) = (9 - )^2 ġޤ ǡ夬ϡ(9 - )^2 ݤ夲ФΤǡ 8^2 * 1 + 7^2 * 2 + 6^2 * 3 + 5^2 * 4 + 4^2 * 5 + 3^2 * 6 + 2^2 * 7 + 1^2 * 8 = 64 + 98 + 108 + 100 + 80 + 54 + 28 + 8 = 540 ̤ ˤʤޤ ޤɤäڤϡߤ⤢ꤽʵ⤷ޤ |
ͥνȡ
726ڡ 12:02:28
MAIL:uchi@sco.bekkoame.ne.jp 39634 |
uchinyan |
ǼĤɤߤޤ #39623#39625#39626#39628#39630#39634(ˡ2) ʿǽĤľʰդ㤨бޤվĺȤϡʬȤޤƤ礦 Ĥ롤 Ѥƿˡ #39627 դĹǾʬƿˡ #39632 դηǾʬƿˡ #39633 ܺ٤Ǥ夲ˡϫʤä褦ǤͤǤ #39634(ˡ1) դηɤʬʤǾʬƿˡ #39632˻ƤޤʬʤǾʬƤΤǾʬλʬѤꡤ #39623ʤɤ˾ᤤˡˤʤäƤޤ #39636 ѤǾʬƿˡ¿ʬ#39627Ʊ褦ˤʤȻפޤ #39637 դη X/Y X + Y Ǿʬƿˡ #39632#39634(ˡ1)˶ᤤˤʤΤǡǽŪʼϡ#39623ʤɤƱˤʤäƤޤ #39638 ץˤˡ |
ͥνȡ
726ڡ 16:38:10
39635 |
ᤤ |
ѤǽIJϣΣѥФΤΤΣѥΤǡʤɤˤ⣲뤬ʪȤƿˡޤߤʤޤ٤ʤ餷ƤΤǥեߥ쥹Ǥ뿩֤ʬۤɱӤޤ |
726ڡ 13:17:32
39636 |
|
٤ĤʤǰգͤȸĿ
8^2+7^2+6^2+5^2+4^2+3^2+2^2+1^2 ٤ĤˤĤƤդηͤȣأ٤줾ͤˤʤꡢ¤Ȥ߹碌ϡλࡡλ λࡦλȤʤ롣 ޤ餽¤ΣθĿ뤳ȤǤΤǡǹͤ 7^2*1+6^2*2+5^2*3+4^2*4+3^2*5+2^2*6+1^2*7 ܭ 8^2*1+7^2*2+6^2*3+5^2*4+4^2*5+3^2*6+2^2*7+1^2*8=540 Ȥޤ ηǼĤơأ٤Τɤ餫ξ礬٤ΤĤʤˤʤ뤫魢ιͤĤǣξǹͤаȯμƳФ뤳Ȥ˵դޤ |
726ڡ 13:22:54
39637 |
??? |
Υޥºݤޤ
Option Explicit Sub Macro1() Columns("B:J").Select Range("B2298").Activate Selection.ColumnWidth = 1.7 Cells(1, 1).Value = 0 Dim Ax As Integer Dim Ay As Integer Dim Bx As Integer Dim By As Integer Dim Cx As Integer Dim Cy As Integer Dim Dx As Integer Dim Dy As Integer Dim gyou As Integer For Ax = 1 To 8 For Ay = 1 To 9 For Bx = Ax + 1 To 9 For By = Ay To 9 Cx = Bx - (By - Ay) Cy = By + (Bx - Ax) Dx = Ax - (By - Ay) Dy = Ay + (Bx - Ax) If Abs(Cx - 5) <= 4 And Abs(Cy - 5) <= 4 And Abs(Dx - 5) <= 4 And Abs(Dy - 5) <= 4 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 gyou = Cells(1, 1).Value * 10 - 9 Call keisen(gyou) Cells(Ay + gyou - 1, Ax + 1).Value = "A" Cells(By + gyou - 1, Bx + 1).Value = "B" Cells(Cy + gyou - 1, Cx + 1).Value = "C" Cells(Dy + gyou - 1, Dx + 1).Value = "D" End If Next By Next Bx Next Ay Next Ax Range("A1").Select End Sub Sub keisen(ByVal x As Integer) Range("B" & strr(x) & ":J" & strr(x + 8)).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub Private Function strr(ByVal x As Integer) As String strr = Right(Str(x), Len(Str(x)) - 1) End Function |
726ڡ 13:31:41
39638 |
ϥ饮㡼ƥ |
ߤޤɤߤޤ25餤ʤͤ뵤ޤ81Ĥȥޤ |
726ڡ 16:03:07
HomePage:湩ؤإ39639 |
ޥ |
͡800¿ΤˤΤդ꤬Ȥޤ
֤פȤְζȤŪʥȤ¿ޤޤǽ餫800³ĤǻϤΤʤȻפޤϡ֥ƥȡ˻ϤơñˤʤäפǤΤǡۤɤΤȤǤϤʤȻפޤºݡμ빽֥줬ޤ..m(__)m ˤʤ뤳Ȥʤ³ƤΤϡäƤꡢǼĤ˽ߤƤ볧οͥбäƤΤȤǤºݡ⡹ϡǼĤΤڤߤǻʤäꤷޤ Ȥ櫓ǡͥΥȥåѤ餺Ǥ줫³ƤȻפäƤޤΤǡȤꤤޤm(__)m |
MacBookAir
727ʶ 11:25:24
HomePage:֥39640 |
̴ |
ޥ
800ǤȤޤȤȻפޤäߤäΤǤ540桹餺ͤ٤ʤޤˡǾʬǡ#39623θΤäƤСƤٶˤʤޤ |
ٻΤ桡
727ʶ 13:47:25
39641 |
ޤ |
§Ū˿夲뤳ȤǤΤǡ
ĿŪˤϡֹʡסʶС ǼĤҸơֱοײˡٶ Ƥޤm(__)m |
Somewhere in the world
728ڡ 12:14:59
39642 |