Ѥ
2633ζ֤˺Ƥޤ
֡ 723ڡ 0:07:57 HomePage:֥34816
(Keigei)
3,8,11,15,16,26,27,28,29,30,31,32,33 13ĤǤ͡
723ڡ 0:12:58 34817
3浡Х
ƥåοθĿ󲡤ΤȻפäƿƤְ㤤ޤ
723ڡ 0:16:21 34818

#34818
Ʊߥ4ܿȻפäơ46äƤOTL
2ŤΥߥǤ
ŷϿ͡ 723ڡ 0:31:37 34819
tomh
Q009Ǥ͡
ԡ 723ڡ 0:23:43 MAIL:tomh@yahoo.co.jp HomePage:H to M34820

㤤Ǥޤ󤬶Ƥ
λver3ʸΰ̣褯狼ʤǤʤʤ7846351200Ǵְ㤤ʤΤǤ礦˲㤤ƤǤ礦
6ꤲ2ϤäƤȤ48ȤäƤȤǤ͡
äƤȤ2示ĤȤˤʤΤϤʤ٤ηΤۤ礭褦ˤ롣
723ڡ 0:46:01 34823
Ȥ
֤򾯤񤭽Фȵ§ǤȤäƤ⤤Ȼפޤ

1
1,2
1,0,3
1,2,0,4
1,0,0,0,5
1,2,3,0,0,6
1,0,0,0,0,0,7
1,2,0,4,0,0,0,8
1,0,3,0,0,0,0,0,9
1,2,0,0,5,0,0,0,0,10
1,0,0,0,0,0,0,0,0,00,11
1,2,3,4,0,6,0,0,0,00,00,12
1,0,0,0,0,0,0,0,0,00,00,00,13
1,2,0,0,0,0,7,0,0,00,00,00,00,14
1,0,3,0,5,0,0,0,0,00,00,00,00,00,15
1,2,0,4,0,0,0,8,0,00,00,00,00,00,00,16
1,0,0,0,0,0,0,0,0,00,00,00,00,00,00,00,17
1,2,3,0,0,6,0,0,9,00,00,00,00,00,00,00,00,18
1,0,0,0,0,0,0,0,0,00,00,00,00,00,00,00,00,00,19
1,2,0,4,5,0,0,0,0,10,00,00,00,00,00,00,00,00,00,20
1,0,3,0,0,0,7,0,0,00,00,00,00,00,00,00,00,00,00,00,21
ʲƱ



Ĥ˸
1100,250,333,425,520,616,714,812,911,1010
119,128,137,147,156,166,175,185,195,205
214,224,234,244,254,263,273,283,293,303
313,323,333
ʸĢ֢Ģ֢ȤʤäƤ뤫3ܿܤƤĤΤ
34ʹߤ2ʲĴ٤ʤȤ褯
333,812,119,156,166,263,273,283,293,303,313,323,333
13ġ()
˭ԡ 723ڡ 0:57:15 MAIL:fttnm528@ybb.ne.jp 34824
⡼ޥ
äȵդ ^^;
[100/k] 3ܿʤ餤櫓Ǥ͢
[100/k]κ[100/3]=33Ǿ[100/33]=3
3=<100/k<43k=<100<4k26~33
6=<100/k<76k=<100<7k15~16
9=<100/k<109k=<100<10k11
12=<100/k<1312k=<100<13k8
15=<100/k<1615k=<100<16kʤ
18=<100/k<1918k=<100<19kʤ
21=<100/k<2221k=<100<22kʤ
24=<100/k<25ʤ
27=<100/k<28ʤ
30=<100/k<31ʤ
33=<100/k<343

ä礯3,8,11,15,16,26~33 ǡ5+8=13...^^;v
723ڡ 1:04:56 34826
Mr.ǥ
(100 ʬ)(ܿ)Ǥ󤹤С#34817ǵ󤲤줿13Ĥˡ
1003.ġȤʤΡ2633
1006.ġȤʤΡ1515
ΤȤ,㴳ּäƤޤޤ

#34823ʡ־QŪ˹ͤơޤꤲȤȤϡġפȤ񤤤Ƥޤ
723ڡ 23:30:53 34827
ߤ
å֤ϣܿλ˲
å֤ϣܿλ˲
ά
å֤ϣܿλ˲롡
ĤȤ櫓Ǥ͡

˳Τϣ󲡤ΤʤΤǡʲˤ
ܿİʾ夢ᣳְʲȤȤˤʤޤ

ʲƻĴ٤뤳Ȥˤơ
֡ʣˡ֡ʣˡ֡ʣˡ֡ʣ
֡ʣˡΣĤ󤲤ޤ
723ڡ 1:35:59 34828
abcba@jugglermoka
ϰ֤ȻפäƤ鸫˰
(򣱤100ޤǤdzäʬ3ܿˤʤϡ33,12,9,6,3Σ̤5)
;͵򤫤ޤΤۤɤۤɤˤƤޤ......
723ڡ 9:46:21 34829
???
Option Explicit
Sub Macro1()
Sheets("Sheet1").Select
Dim j As Integer
Dim jj As Integer
For j = 1 To 100
Cells(j, 1).Value = ""
Next j
Cells(1, 2).Value = "=COUNTIF(A1:A100," + Chr(34) + "" + Chr(34) + ")"
Range("B1").Select
For j = 1 To 100
For jj = 1 To j
If j Mod jj = 0 Then
Cells(jj, 1).Value = plus(Cells(jj, 1).Value)
End If
Next jj
Next j
End Sub
Private Function plus(ByVal n As String) As String
Select Case n
Case ""
plus = ""
Case ""
plus = ""
Case Else
plus = ""
End Select
End Function
723ڡ 9:57:36 34830
uchinyan
Ϥˤϡơϡ
դ򤦤ޤ߼ä뤫ɤݥȤǤ礦
¿ʬϢˤϴñ򾮳ˤϤΤ褦ʵޤ

-> -> -> 3 ĤΤǡǽ餬ĤĤˤʤˤϡ3 ܿå򲡤Ȥˤʤޤ
֤Υåϡ 1 100 ˤʤǤ
ˤʤ뤳ȤϢܿˤʤ뤳ȤʤΤǡβϡܿ 1 100 ˲Ĥ뤫ƱǤ
ǡ1 100 ˤܿθĿ 3 ܿ 3 ʾ塤ˤʤ褦ʡθĿФȤˤʤޤ
ϡ100 ϰϤǷ׻ƾ 3 ܿˤʤ褦ʡθĿФǤ
343 = 102 > 100 ʤΤǡ 33 ʲǤ
ǡ10011002...10033 ξ 3 ܿˤʤĿФǤ
ǤΤǤ
ξβ3 ܿ(3 ܿ)ߡ <= 100((3 ܿ)1)ߡ > 100
ܤĴ٤뤳ȤǤޤǤϤǤäƤȡ
03 󡧡 26 33 8 ġ
06 󡧡 15 16 2 ġ
09 󡧡 11 1 ġ
12 󡧡 8 1 ġ
15 30 󡧡 0 ġ
33 󡧡 3 1 ġ
36 ʾ塧 0 ġ
ǡ8 + 2 + 1 + 1 + 1 = 13 ġˤʤޤ
ºݤˤϡ 7 ʲϳ껻®ΤǡʻѤȤǤ͡

ʤߤˡ
3 ܿ161
֡3 ܿ226
Ǥ͡
ͥνȡ 723ڡ 12:12:30 MAIL:uchi@sco.bekkoame.ne.jp 34831
uchinyan
ǼĤɤߤޤ
⡤Ʊǡ 3 ܿܤˡΤ褦Ǥ

Ȥǡ

ϡǤǼºݤˤˤʤäϤääΤǤ礦
򸫤ˤΤɤ˽ФʤФʤʤΤǡäʤǽ⤤Ǥ礦͡
Ǥ⡤ʬˤʤäϡääΤޤ
νϰϤʬǤͤޤŷŻ⤢äΤǡޤǤ
롤ƥӤǸޤ (^^;
Ǥ⡤46ǯξλˤϡʬǤƤޤ֤ؤ礱Ƥפäƴǡ
κϡߤƩۤ򸫤ƤޤϤʤä褦Ǥ͡
ʤܤdzΤ26ǯǡΦ̴Ǥ¬Ǥ뤽Ǥ
κޤǸǤΤǤ³Ƥ뤫ʤ
ͥνȡ 723ڡ 18:27:58 MAIL:uchi@sco.bekkoame.ne.jp 34832
ޥ
οնϤäޤǤ11:30ˤ礳äȽи֤顢뤳ȤǤޤ(^^;

46ǯޤǻ..ޤ̵ȡ(^^;
PowerBook 723ڡ 14:11:23 MAIL:masaru-y@sansu.org HomePage:Men @ Work34833
gg
100/3=33;133ʲͤФϡ100äƾ3ܿ(ĤˤʤΤ3ܿˤˤʤΤҤޤ
פ֤˲򤭤ޤ򤱤ư¿ޤ
723ڡ 15:30:52 34834
ϥ饮㡼ƥ
MATLABˤץǤHP˰ոܤޤǯΤ老ȤǤ
723ڡ 17:12:13 HomePage:湩ؤ˥34835

computerѤǡġ
723ڡ 20:30:12 34836
(Keigei)
ʿαߤǣǯ˶Ŀʤ餢뤽Ǥ
http://www.hucc.hokudai.ac.jp/~x10553/jp2/2012jp.html
³Ƥޤ͡
723ڡ 21:23:18 34837
ϥ饮㡼ƥ
#34823
ǺߤޤɤȤƤꤲʤ褦ǤƥӤǸޤ
723ڡ 22:08:39 HomePage:湩ؤ˥34838
Ȥ
#34838
>ɤȤƤꤲʤ褦Ǥ

꤬Ȥޤޤ
˭ԡ 724ʶ 9:42:42 MAIL:fttnm528@ybb.ne.jp 34839
粬ҹ
פޤʡ
Ĥˤʤˤϣʣܿ󥹥å򲡤ˡࣳᣳäƣְʹߤΥåϣޤϣ󤷤ʤΤǿʤƤɤʤ롣

å֢
å֢
å֢
å֢
å֢

嵭ֹ椬Ŀˤʤ롣äƣġĹȽ񤤤Ƥޤޤ
724ʶ 11:20:23 34840

椬Ȥvista褿ä®

ܿβܥ󤬲줿פĤʤ롣
/ᢢĢȤʤ>
3ܿʤФ褤
äơ3,8,11,15,16,2627,28,29,30,31,32,33Ǥ롣
726 20:34:09 34841