ipadǤޤʤƤ䤬ڤʤΤDzǤޤ
919ڡ 0:12:42 40900
ߤ
ޤɽƤʤΤǤ塦Σ̤飳ߣΥޥܤ
褦ˤˤϣդΩΤĤ뤫ȤʤΤǤ礦

Ѥ߽ŤǤϤʤܤƤУϣˡפʤΤǡΩΣĤ
Ω뤫ݥȡäȻƤߤȤʲΤ褦ΩΤʤ
ޤʺ¦˾ʡʡʤǡϣգΩΤ뤳Ȥɽ

ߡߡߡߡߡ
ߡߡߡߡߡߡ
ߡߡߡߡߡ
919ڡ 0:15:39 40901

#40900
ɽʤΤʬʤäΤäư¿ޤʾС
Ʊʸǰ̣ʬäΤꤢޤǤ
裲롼ס 919ڡ 0:17:11 HomePage:40902
⡼ޥ
Ʊ...
Ƥߤޤ...
13ͤиΨ֤Τ...27/3=9

ºݤ...
DZδطΤ룳Ȥդ=6
гѤγ=2
濴=1
=9
Dzǽȹͤޤ...ޤϤʤƤʸϤǤޤ ^^;...Orz...
919ڡ 0:19:03 40903

ɤɤ餷ä9ǷǼ줿
ޤƹͤ򤷤Ȥβˡʤ̵
919ڡ 0:25:40 40904
abcba@baLLjugglermoka
ʡʡʤ3ĤĤʤΤǡ33=9
919ڡ 0:46:16 40905

#40903 褯ʬޤ꤬Ȥޤ

ʸɤȤƤΤĿȤʤäᡢ
ǧڤǤäƤߤޤʸʤ17ġ

ޥΩΤȤ߹碌ΩΤˤäƤϡޥΤ褦ˡĤĺǡʽִǡˤäĤƤ뤳Ȥ⤢ꤨΤȤޤ
919ڡ 1:09:52 HomePage:40906

ޤľޤٶȤǤ
919ڡ 1:10:45 HomePage:40907
ߤ
ѷС󡢰ʲξκϤĤǤ礦

ʣʿ̤ѤڤѤ߾夲
ʣѤڤŽ碌ݡ̤ɤŽ碌ʤФʤʤ

ʣˤʣˤ⣱Ĥʤ
919ڡ 9:46:40 40908
ϥ饮㡼ƥ
Ϥ褦ޤīաäʤޤǤ
919ڡ 5:00:24 HomePage:湩ؤ˥40909

Ǥ⡢8Ĥĺ6Ĥ̤濴ǤǤޤ
ĺ4ĤޤǺ뤳ȤǤΤǺǤ10Ĥȹͤޤ
鸺餽ȰƮ
333ΩΤ£ãġݣţƣǣ Ȥȡ
ޤƻĤäĺãƣ Τ
ĤäƤ룳Ĥ̤濴ȡ
AгѤˤ ޤࣳĤ(ã , ƣ , H)
Ȥ飴ܣܣ10ѤޤǤ
Ǻ٤ĺ⤦ĺäA, C, HȤ
3ΤɤȤ٤礦DĤ룳Ĥ̤濴ȡ
ĤгѣƤĤäƤ3Ĥ(£, ţ, ǣ)
ܣܣ᣹Ȥʤޤ
ĤǤǤʤͤޤɤƤǤʤäΤǤȤϴǤ
919ڡ 6:58:30 40910

#40910 鸫nĤ褦˸Ȥ
ºݤnİʾʤԲǽǤϡ
919ڡ 9:30:06 40911

夫鸫ƣɤ㣱ĤΩΤΤǺ㣹ġ
ҤȤĤʤˣĤȡʤΤǽŤʤ꤬ǤΤۤϳʣĤΣġ
ȤꤢäƤߤ飱ǤޤǤƤޤޤ
ǡʽġ⤵ˤǡʣˤʣˤȤ֤ƤߤȡȤȹ礻Ǥ⤷ʤΤǾͤƤޤ
ʣġʣˡʣˡʣˤĤ
¾̤鸫ƽŤʤʤʣˡʣˡʣˤΤ褦ˡϤ줾̤ο
ʣˡʣˤΤ褦ˣĤοΤĤƱȽŤʤΤǡ
ȡȹ礻Ȥư̲ǤȻפäΤǤޤޤ
Ťʤʤˤ
919ڡ 10:40:54 40912

ʤߤˤޤä
ʣˡʣˡʣ
ʣˡʣˡʣ
ʣˡʣˡʣ
ΣĤǤ
919ڡ 10:43:12 40913

椬ƶǤ褱8ĤǤǤ롣
919ڡ 10:45:41 40914
ޥ
ޤ󡢸餤ޤǤδ֡ޤɽƤޤǤʻΥߥǤm(__)m
iMac 919ڡ 10:56:43 HomePage:40915
C-D
#40914
ʤۤɡ

#40900
򻲹ͤˤȡ㤨йΩΤʤ
ߡߡߡߢߢ
ߡߢߡߡߡߡ
ߢߡߡߡߡߢ
Ȥȡ٤Ƥ



Τ褦˸ȡ

ˡȡޤäƤƤ֣ĤΩΡפǼ¸ΤԲǽ
ï⤤ʤԳϡ 919ڡ 11:35:31 HomePage:֥⤢40916

#40908

(1)(2)15ˤʤޤ衣

(1)ʡʡ
ߡ

ߡ
(2)ʡʡ
ߡ ߡ



ȤǤ
919ڡ 11:48:21 40917

#40911

ä̤ʤΤǤ
椬ƶξȤƤޤޤ(^^;
919ڡ 11:53:20 40918
C-D
#40908
(2)14ĤǤǤ͡
ߢߡߢ
ߡߡߡ
ߡߡߢߡߢ
⤦ʤǤʵġ
ï⤤ʤԳϡ 919ڡ 12:08:37 HomePage:֥⤢40919

#40908
#40919

(2)13ġǤޤ





äȤǤ礦

919ڡ 13:28:10 40923
uchinyan
Ϥˤϡơϡ
ϴñǤ͡ʴǡ

塤̡¦Τ줫鸫Ƥ 3 * 3 Υޥܾ˸롤ȤΤ顤
ޥ 1 cm^3 ΩΡʲǤ ȤޤʤȤ 9 ĤɬפǤ
ϡºݤ 9 ĤDzǽǤ㤨СΤ褦ˤм¸ǽǤ
3 cm * 3 cm * 3 cm ΩΡʲǤ Ȥޤͤޤ
ޤʬ ֤ ΰĤгʳζ 2 ս ֤ޤ
ˡ ֤ޤ ̤ ̵Ĥդ ֤ޤķӤΰ֤Ǥ͡
ȡ塤̡¦Τ줫鸫Ƥ 3 * 3 Υޥܾ˸ޤ
⡤ΤȤ˻Ȥä θĿϡ վ֤ ϶ΰ֤ʣƤΤǡ
ºݤˤϡ1 + 2 + (2 + 2 + 2) = 9 ġǤ
Ĥޤꡤ 9 ĤǾΩΤ¸Ǥޤ
ǡǾѤ 1 cm^3 * 9 = 9 cm^3ˤʤޤ

֤ϴĤꤽǤϡ ֤ ֤ʤ ߡȤơ夫顤
ߡߡߡߡߡߡ
ߡߡߡߡߡߡ
ߡߡߡߡߡߡ
ʤȤ⡤λĤʤؤϲǽǤ͡
ͥνȡ 919ڡ 13:59:44 MAIL:uchi@sco.bekkoame.ne.jp 40924
uchinyan
ǼĤɤߤޤ
Ϥꡤϳפä꤬ȯŸƤ褦Ǥ͡ǰʤ顤ϻ֤ʤΤǥѥ

ǡǤ󡤴Ūˡ
3 cm * 3 cm * 3 cm ΩΤͤ塤桤γʤˣĤġȤȤǤȤϻԺȤˡ
Τ褦Ǥ͡
ͥνȡ 919ڡ 14:15:07 MAIL:uchi@sco.bekkoame.ne.jp 40925

ߤ󤵤
ʣˤϰ־ʤ̡鸫ƣ¤Ǥߤä뤿ˣ
ʤϡʤ٤ΤǺ㣳
ʤϡ売ʤ٤뤿ˣġ夫鸫褦ˤ뤿˻ĤꣶġĤޤΣ
ܣܣᣱȻפޤ
ʣˤ
ߡߡߡߡ
ߡߡߡߡߡ
ߡߡߡߡߡߡΣĤǽ?

919ڡ 14:20:35 40926

Ǥ
ʣˤκΣĤ
ߡ
ߡ
ߡ
桢ϤΤޤޤǤ
919ڡ 14:25:02 40927

Ǥ
ʣˤκΣĤ
ߡ
ߡ
ߡ
桢ϤΤޤޤǤ
919ڡ 15:19:00 40928
ޤ륱




ԺDzޤȤΤĤ

褯룳ߣؤͤޤ





ο򤽤줾죳dzä;֤ޤ





ܡ2ܡȤȡۤɤβȰפޤ

ĥȡ
ߣߣȡ
16 9 7 2
3 6 12 13
10 15 1 8
5 4 14 11
١ˤơ











ˡߣߣǤϡ

11 24 7 20 3
4 12 25 8 16
17 5 13 21 9
10 18 1 14 22
23 6 19 2 15
١ˡơ













¾ΩΤʤʤΤФΤǡ
ޤޤ󤬡Ŭ¤ؤФǤǤ







919ڡ 15:55:13 HomePage:ޤ륱40929

#40926
#40927
(2)Ǥ
ʤ2ܤΩΤɤȤҤäƤʤΤǤϤʤȡ
ΤԤƤߤޤ12ĤǤϻϤǤƤޤ

919ڡ 19:00:04 40930

Jޥޡ¾ߤʤޡ
ޤǤĤȡʰξΩĤȤϻפޤˣĤΩΤˤʤäƤޤ
ʣˤϲʤǾʤ٤Ȥ᡼ǹԤ
ʤϽIJɤ餫鸫Ƥ⣱ĤϤ褦˺㣳ɬפʤΤǣĤȲꡣ
ʤϡʤΣĤ줾IJΩΤʤ褦ΩƤΤǷҤˤޤòΣ
(ǡòΣĤȡʣˤηǣĤˤʤΤDzȷҤޤ)
ĤĤʤʤ餵ˣʣ
ĤĤʤʤ餵ˣʣġ
ʤ
ʤĤξ硢売ʤǣĤΩΤˤʤäƤ뤿᲼ʤǣĤΩΤˤ뤿ˤϽŤʤꣲɬסޤäƤʤǣ
ʤĤξϾ売ʤϣĤΩΤˤʤäƤ뤿᲼ʤȣνŤʤޤäƤʤǣ
ξ⣳ܣܣᣳܣܣᣱǺ㣱Ĥˤʤޤ(ʤȻפޤ)

919ڡ 21:01:43 40931

ޤ󡣤
ϣʤΤǡʥޥޤΤ褦ˣΣĤǾȻפޤ
919ڡ 21:05:57 40932
ߥߥϤ
̵Ƥޤ
ޥܾ˸ΤդǤΤ̤ɬפʤΤǺߤޤ
դʤ#40914Τˤͤˡƶ8ĤǤ⤤Ǥ
¾ȤĤʤʤʶ⤤ˤΤΤǡäѤ9ĤǤ͡
920ʶ 8:59:41 40933
???
٥ʥޥǤߤޤ
夫鸫
أز
آ
أآ

آ
أآ
أ

أآ
أ
آ
Option Explicit
Dim as a(27) as Integer
Sub Macro1()
Cells(1, 1).Value = 27
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
If n = 1 Then a(1) = 1 Else a(n) = a(n - 1) + 1
While a(n) <= 27
If n < 9 Then
Call saiki(n + 1)
Else
Call check(n)
If n < Cells(1, 1).Value Then Call saiki(n + 1)
End If
a(n) = a(n) + 1
Wend
End Sub
Sub check(ByVal n As Integer)
Dim b(8) As Integer, deta As Integer, j As Integer
'
'01_02_03___10_11_12___19_20_21___1_2_3
'04_05_06___13_14_15___22_23_24___4_5_6
'07_08_09___16_17_18___25_26_27___7_8_0
For j = 0 To 8: b(j) = 0: Next j
For j = 1 To n: b(a(j) Mod 9) = 1: Next j
deta = 0
For j = 0 To 8
If b(j) = 0 Then deta = 1
Next j
If deta Then Exit Sub
'
'19_20_21___22_23_24___25_26_27___6_7_8
'10_11_12___13_14_15___16_17_18___3_4_5
'01_02_03___04_05_06___07_08_09___0_1_2
b(0) = 0: j = 1
While b(0) = 0 And j <= n
If a(j) = 1 Or a(j) = 4 Or a(j) = 7 Then b(0) = 1 Else j = j + 1
Wend
If b(0) = 0 Then Exit Sub
b(1) = 0: j = 1
While b(1) = 0 And j <= n
If a(j) = 2 Or a(j) = 5 Or a(j) = 8 Then b(1) = 1 Else j = j + 1
Wend
If b(1) = 0 Then Exit Sub
b(2) = 0: j = 1
While b(2) = 0 And j <= n
If a(j) = 3 Or a(j) = 6 Or a(j) = 9 Then b(2) = 1 Else j = j + 1
Wend
If b(2) = 0 Then Exit Sub
b(3) = 0: j = 1
While b(3) = 0 And j <= n
If a(j) = 10 Or a(j) = 13 Or a(j) = 16 Then b(3) = 1 Else j = j + 1
Wend
If b(3) = 0 Then Exit Sub
b(4) = 0: j = 1
While b(4) = 0 And j <= n
If a(j) = 11 Or a(j) = 14 Or a(j) = 17 Then b(4) = 1 Else j = j + 1
Wend
If b(4) = 0 Then Exit Sub
b(5) = 0: j = 1
While b(5) = 0 And j <= n
If a(j) = 12 Or a(j) = 15 Or a(j) = 18 Then b(5) = 1 Else j = j + 1
Wend
If b(5) = 0 Then Exit Sub
b(6) = 0: j = 1
While b(6) = 0 And j <= n
If a(j) = 19 Or a(j) = 22 Or a(j) = 25 Then b(6) = 1 Else j = j + 1
Wend
If b(6) = 0 Then Exit Sub
b(7) = 0: j = 1
While b(7) = 0 And j <= n
If a(j) = 20 Or a(j) = 23 Or a(j) = 26 Then b(7) = 1 Else j = j + 1
Wend
If b(7) = 0 Then Exit Sub
b(8) = 0: j = 1
While b(8) = 0 And j <= n
If a(j) = 21 Or a(j) = 24 Or a(j) = 27 Then b(8) = 1 Else j = j + 1
Wend
If b(8) = 0 Then Exit Sub

'25_22_19___26_23_20___27_24_21___6_7_8
'16_13_10___17_14_11___18_15_12___3_4_5
'07_04_01___08_05_02___09_06_03___0_1_2
b(0) = 0: j = 1
While b(0) = 0 And j <= n
If a(j) = 7 Or a(j) = 8 Or a(j) = 9 Then b(0) = 1 Else j = j + 1
Wend
If b(0) = 0 Then Exit Sub
b(1) = 0: j = 1
While b(1) = 0 And j <= n
If a(j) = 4 Or a(j) = 5 Or a(j) = 6 Then b(1) = 1 Else j = j + 1
Wend
If b(1) = 0 Then Exit Sub
b(2) = 0: j = 1
While b(2) = 0 And j <= n
If a(j) = 1 Or a(j) = 2 Or a(j) = 3 Then b(2) = 1 Else j = j + 1
Wend
If b(2) = 0 Then Exit Sub
b(3) = 0: j = 1
While b(3) = 0 And j <= n
If a(j) = 16 Or a(j) = 17 Or a(j) = 18 Then b(3) = 1 Else j = j + 1
Wend
If b(3) = 0 Then Exit Sub
b(4) = 0: j = 1
While b(4) = 0 And j <= n
If a(j) = 13 Or a(j) = 14 Or a(j) = 15 Then b(4) = 1 Else j = j + 1
Wend
If b(4) = 0 Then Exit Sub
b(5) = 0: j = 1
While b(5) = 0 And j <= n
If a(j) = 10 Or a(j) = 11 Or a(j) = 12 Then b(5) = 1 Else j = j + 1
Wend
If b(5) = 0 Then Exit Sub
b(6) = 0: j = 1
While b(6) = 0 And j <= n
If a(j) = 25 Or a(j) = 26 Or a(j) = 27 Then b(6) = 1 Else j = j + 1
Wend
If b(6) = 0 Then Exit Sub
b(7) = 0: j = 1
While b(7) = 0 And j <= n
If a(j) = 22 Or a(j) = 23 Or a(j) = 24 Then b(7) = 1 Else j = j + 1
Wend
If b(7) = 0 Then Exit Sub
b(8) = 0: j = 1
While b(8) = 0 And j <= n
If a(j) = 19 Or a(j) = 20 Or a(j) = 21 Then b(8) = 1 Else j = j + 1
Wend
If b(8) = 0 Then Exit Sub
'
If Cells(1, 1).Value > n Then
Cells(1, 1).Value = n
For j = 1 To 27: Cells(1, j + 1).Value = "": Next j
For j = 1 To n: Cells(1, j + 1).Value = a(j): Next j
End If
End Sub
920ʶ 9:08:36 40934
Ϸʼ
̤򭡡򭢡̤򭣤Ȥ֤ͤ



έȺέǷҤ
¾ǷҤ
ߣ᣹Ȥʤޤ
920ʶ 10:55:09 40935
ˤ
äȣĤǤǤޤ

󼰤Υ饹ˡߤǤ͡
920ʶ 15:52:39 40936
uchinyan
٤ޤʤ顤褦䤯֤줿Τǡߤ󤵤#40908ͤƤߤޤ

ʣʿ̤ѤڤѤ߾夲
ϡΤ褦˹ͤкǾ餫ʤΤǡ15 ĤǴְ㤤ʤǤ礦

ޤѤ߾夲ƤϤǤʤΤǡ̡¦鸫 9 Ĥ뤿ˤϡ
ʤȤ 3 ĤѤ߾夲 3 ܤɬפǤ
̡¦鸫 9 Ĥ֤ˤΤϡƱͤ¤Ӥˤвǽ
夫鸫硤6 ս꤬ƤΤǡ 1 Ĥ֤ơ
ɡ3 * 3 + 1 * 6 = 15 ġ

ʣѤڤŽ碌ݡ̤ɤŽ碌ʤФʤʤ
ϤäǤ͡ǾξԽʬǤ¿ʬJޥޤΤäȤꡤ13 ġǤ礦

(1) 15 Ĥγ̤ĥ碌ΤвǽʲʤΤǡ15 İʲ餫
ĥ碌ΤҤä֤ޤ
ȡ

ʤ



ξ

ʤϤƱǡʤ 9 սꤹ٤ƤޤʤΩΤʤ˰ܤȤͤޤ
夫鸫Ƹ餹ΤǽʤΤϡޤ΢ξΰ֤ˤʤ 3 ĤǤ
3 ĤȤäƤޤäХХˤʤäƤޤΤԲġ
ǡ2 Ĥ򸺤餻뤫ǤϤʤʤޤʤ褦Ǥ
ʤߤˡ1 Ĥ򸺤餷 14 ĤʤС㤨С顤



Dzǽ

ʤ



ξ

ۤɤƱ褦ˤơ3 Ĥ򸺤餹̵ǡ2 Ĥ򸺤餷ϡ㤨С顤



ʤǽ
ΤȤ15 - 2 = 3 + 5 + 5 = 13 ġ

ϡJޥޤΤȼ¼ƱǤ͡

ʤ֤ϡʤȤ⡤嵭γʤؤϲǽǤ
ͥνȡ 921ڡ 18:05:54 40937
粬ҹ
ߣ᣹ǤϽֻϤǤ̿͡ؤϣä餤ФΤǤϡ
923ʷ 23:25:45 40938