Ϥʤ
959Ūʥѥ򤹤ä˺Ƥơäȡ֤ʤ4ʤΡפäƤ

959,868,707,777,616,686,525,595,434,343,252,161
952,259,168,861
Ǥ͡ɤΤǤߡѥϼĴ٤ޤ
줤ʲԡ
1028ڡ 0:17:33 36970
sodo
16Ȳ򤤤塢ʤǤäƣΰ̤ޤ18Ȥ
Ѥƽ񤱤ޤ
βĮ 1028ڡ 0:18:45 36971
ߤ
ΰ̤ȣΰ̤Ʊѥ󤬣̤ꡢ
ΰ̤ȣΰ̤κˤʤѥ󤬣̤ꤢΤǤ͡

ˤʤѥϼΩƤƤդΤǤƱѥ
Ťˣ̤ȻפǤޤ
1028ڡ 0:23:38 36972

ޤ
ǣΣܿ񤤤
Ҥä֤񤤤ơmod(**,7)ǿޤ
ʤȤꤦ
ޡ 1028ڡ 0:35:46 HomePage:36973
⡼ޥ
äȴñˡΤʤ...^^;
99(a-c)=7k
a=c...1,2,3,4,5,6,7,8,9
a-c=9-2=8-1
0
10...3
20...-1
30...2
40...-2
50...1
60...-3
70...0
80...3
90...-1

101...3...-3
202...-1...1
303...2...-2
404...-2...2
505...1...-1...2
606...-3...3...2
707...0...0...2
808...3...-3
909...-1...1

902...-1...1
209...-1...1
801...3...-3
108...3...-3

=16
1028ڡ 0:40:24 36974
cyclone
˽񤤤󤷤ޤʤäѤ
1028ڡ 0:40:38 36975

Ȥ7ܿˤʤФ褤
99()7ܿǤ롣
䢤λ2̤(դ⤢)
ᢤλ12̤
äơ2*2+1216(̤)

ޤ
ο1ΰ̤1ΰ̤2ܤ
줬7ܿǤСο7ܿǤ롣

ȤС58158-1*2567ܿʤΤǡ5817ܿǤ롣

ֲϥϥѡ(ʸ)˽񤤤ƤäˡǤ
ϾϤǤޤ󤬡
1028ڡ 0:41:42 36976
Ȥ
basicץǡ

LET x=0
FOR a=1 TO 9
FOR b=0 TO 9
FOR c=1 TO 9
IF MOD(100*a+10*b+c,7)=0 AND MOD(100*c+10*b+a,7)=0 then LET x=x+1
NEXT c
NEXT b
NEXT a
PRINT x
END

f916
˭ԡ 1028ڡ 0:53:24 MAIL:fttnm528@ybb.ne.jp 36977
Ȥ
Ʊbasic16̤󤹤ץǡ

FOR a=1 TO 9
FOR b=0 TO 9
FOR c=1 TO 9
let x=100*a+10*b+c
let y=100*c+10*b+a
IF MOD(x,7)=0 AND MOD(y,7)=0 then print x;y
NEXT c
NEXT b
NEXT a
END

f9ưʲ16̤

161 161
168 861
252 252
259 952
343 343
434 434
525 525
595 595
616 616
686 686
707 707
777 777
861 168
868 868
952 259
959 959
˭ԡ 1028ڡ 0:58:59 MAIL:fttnm528@ybb.ne.jp 36978

ǥߥפޤơ15פɤĤܤȤޤ35063ȻäƤ֣׳ʤäƤääʳʤ櫓ʤΤˡŤʿϻ碌Ƥ餺ޡ
ޤ轵ĥޤ
1028ڡ 1:43:03 36979
ͣ.ǥ
99(a-c)7ܿꡤ㡡ޤϡᡤκ7
ڣΤȤ
100+10b+a 7ܿ33⡡7ܿΣ+⤬7ܿ
ܣ7ΤȤ᤬17 ̤ꡡ
ܣ14ΤȤ᤬59 5̤

a,κ 7ξ
100a+10b+c7ܿΡ2+)+10⡡ 7ܿ
81a=1,b=8)ΤȤϡ6Τ
92a=2,b=9)ΤȤϡ5Τ
äơ7+5ܣ16̤ˡȵޤ

1028ڡ 1:46:59 36980

ͣ򡥥ǥ󡡤Τ褦ˡ㡡ξ
äФǤ͡Ǽ
1028ڡ 1:52:59 36982
imai
b=0˺Ƥ
1028ڡ 3:33:36 36983
ϥ饮㡼ƥ
ᤦޤץǤ18ȤȻפäΤǤ
1028ڡ 6:23:12 HomePage:ϥ饮㡼ƥ湩36984
???
Option Explicit
Sub Macro1()
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim nn1 As Integer
Dim nn2 As Integer
Cells(1, 1).Value = 0
For n1 = 1 To 9
For n2 = 0 To 9
For n3 = 1 To 9
nn1 = n1 * 100 + n2 * 10 + n3
nn2 = n3 * 100 + n2 * 10 + n1
If (nn1 Mod 7) + (nn2 Mod 7) = 0 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = nn1
End If
Next n3
Next n2
Next n1
End Sub
1028ڡ 9:15:57 36985
abcba@jugglermoka
#36972
Ʊ4
1028ڡ 10:18:42 36986
uchinyan
Ϥˤϡơϡ
פ鷺ץȤߤʤǤϤ館ơäȿؤäݤǤʴǡ

1 9 0 9 Ȥȡꡤ
= 100 * + 10 * + = 7 * (14 * + ) + (2 * + 3 * + ) = 7 ܿ
= 100 * + 10 * + = 7 * (14 * + ) + (2 * + 3 * + ) = 7 ܿ
2 * + 3 * + = 7 ܿġ2 * + 3 * + = 7 ܿ
ˡ
ȥκ = 99 * (Ȣκ) = 7 ܿ
ʤΤǡͤϰϤ¤顤Ȣκ = 0 7 ˤʤޤ
Ȣκ = 0 ξ
= + = 7 ܿ = 7 14 Ǥ
Τϡ + = 7 ΤȤ 7 ̤ꡤ + = 14 ΤȤ 5 ̤ꡣ
ǡξϡ7 + 5 = 12 ̤ꡣ
Ȣκ = 7 ξ
> ΤȤϡ = + 7 + = 7 ܿ = 14 Ǥ7 ͤ¤餢ꤨޤ
Τϡ2 ̤ꡣ
> ΤȤƱ͡ȢؤΡǡϤ 2 ̤ꡣ
ǡξϡ2 + 2 = 4 ̤ꡣ
ʾǤ٤ƤʤΤǡ12 + 4 = 16 ̤ꡤˤʤޤ
ͥνȡ 1028ڡ 11:35:15 MAIL:uchi@sco.bekkoame.ne.jp 36987
uchinyan
ǼĤɤߤޤ
񤭽Фˤϵץࡤˡ͡Ǥˡϡ
= 100 * + 10 * + Ȥ
ȥκ = 99 * (Ȣκ) = 7 ܿ = 0 7
ȤˡΤ褦Ǥ
Ȥ¤ȤϡͤĤοоŪʾξƻȤȤǤ礦

ʤ

#36976Τޤ
(100 * + 10 * + ) - 21 * = (100 * + 10 * + ) - (10 * 2 * + ) = 10 * ((10 * + ) - 2 * )
ꡤ餫Ǥϡ㤤ƤΤʡ
ͥνȡ 1028ڡ 11:54:49 MAIL:uchi@sco.bekkoame.ne.jp 36988
ߡ
ǶỲäǤƤޤ
ͤФ餯ĥäƲ
1028ڡ 15:01:34 36989
ֿء׾ι
ס˥ץबȤޤʡ
Уңɤǡ
n=0;for(i=1,9,for(j=0,9,for(k=1,9,if((100*i+10*j+k)%7==0,if((100*k+10*j+i)%7==0,n=n+1)))));print(n)
Ȥʤޤ
ºݤϥץषΤ򤬤ޤ󤷤ơ䣷ɽ񤭤ޤ
1028ڡ 15:36:55 36990
ޥ
ξϢΡhttp://puzzleelzzup.blog33.fc2.com/ˤѥ긢ͥޤƣ̤ˤϤ㡼ߡhttp://d.hatena.ne.jp/deu/ˤ
䤡롪

http://wpc2010.com/results
1029ʶ 0:47:14 36991
ޥ
˥塼ˤФޤ͡

http://sankei.jp.msn.com/world/europe/101029/erp1010290852000-n1.htm
1029ʶ 11:37:35 36992
ѥ&10ﶥ
Ǥ͡󤪤ǤȤޤ
ƱɶǼȤʤơ
ޥ뤵紶դǤ
1029ʶ 12:51:47 HomePage:ѥ&10ﶥ36993
ݤä
ǤȤޤ
ʤƤǤ
ƻͤϤʤʤ̤ʤ
1029ʶ 20:33:15 36994
ɡǤ
ǤܤʤäƤߤǤ
ɤǤ礦 1030ڡ 11:14:43 36995
ɡǤ
õʤǤ͡707,616,525,434,343,252,161,777,686,595,959,,868,259,952,861,168
ݤ
ɤǤ礦 1030ڡ 11:18:37 36996
粬ҹ
󡢤ФꥨǤʡ
1031 13:48:50 36997
ɡǤ
õʳλDz򤤤͡򶵤Ƥ
ɤǤ礦 1031 20:32:06 36998
mhayashi
ҤӤޤäƣףУãη魯Ǥ͡ 줫䡤Ȥ⤪ǤȤޤ
KANSAI 113ʿ 19:01:25 HomePage:M.Hayashi's Web Site36999
ȥ饤
ʤȡإԥåTop CoderꥹȤ⻲äƤǤ͡
ȤäǤ
114ڡ 13:14:09 37000
ͣ.ǥ
äȥ饤ޤա
ʺǸ˻Ĥäϡְäפߤ򤷤ƤᡢƲ򤷤 ʤּޤ
줿ɡʤȤ⤤ãǡʬֲǤ

ˤƤ⡢㡼ߤ󡢥󡡤Ǥ͡
ǤȤޤ
114ڡ 17:24:47 37001
kasama
٤Фʤ顢⤵äƤޤ꤬ꤵ줿Ȥޤ񤷲᤮ƤɤդɤΤ顣⤦ϼष褦ȻפޤޤȤʤޤ
ˤƤ⡢ѥ긢Ǿޤ⻲蘆ƤȤϤȤƤäǤʤ­ˤڤӤޤ󤬡ƱɶϤ򶥤礨뤳ȤѸɤǤФȤߤˤʤޤ
ҡ 115ʶ 12:32:59 37002
ؽ
˰³ⴰǤޤ
ϡ彽ޤǻŻīŻäΤǡץå㡼ޤǤ̿Ⱦǯۤûʤäޤ
̤ϡǯιݿإԥåȤäΤ褦Ǥ͡
ѥ긢Ǥ줿ȤǤ͡Ʊ󥭥󥰤˺ܤƤǡ줷Ǥ
115ʶ 12:27:52 37003
uchinyan
ȥ饤ϡϥޤȻŻ˺꤬ꤽʤΤǡäʤĤǤ
äʤȤϸ뤷滲äǽȤȤǡ
⾯ܡ޳ѤΤ٤ߤǤȤǡΤӤ滲äƤߤޤ
ʤϫ⤢ꡤإȥ饤󡩡ˤʤäƤޤäΤ⤢ޤ
ʤȤϤǤޤˡʬʤäΤϡ֤򸫤ƺƹͤƤߤĤǤ
ɤ餽äƤ褦ǡ̤ϡȤƤˤϱ󤯵ڤФʤ٥襤Τ褦Ǥ
ޥڡǤΤӤڤǤ­Ǥ (^^;
ͥνȡ 116ڡ 13:19:41 MAIL:uchi@sco.bekkoame.ne.jp 37004
ߡ
󤬤СǻäƤ餪ȻפäƤޤ
ϼޤ
117 13:16:51 37005
ɡǤ
ǯϤäǯꤿǤ
ɤǤ礦 118ʷ 18:28:45 37006