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