M'm
ä0ǤäϤ01950ΤǤ
317ڡ 0:08:32 37536

̺ﳲˤ줿Σᤤ򤪵꿽夲ޤ

ơⵤǿޤ
ƤɤǺΤ
19491950ξޤ
裲롼ס 317ڡ 0:10:49 HomePage:37537
miki-fs
οˡäơǤ⤢ޤФʤñǤ͡
ʤΤǡΤäƤͤ;͵Dz򤱤뤱ɡʤߤΤʤͤ
ޤạ̈ʬʤǤ͡

ΣξȣΣξҤ񤯤ȡʾǤϽʣʤʤޤ





ޤǤΣĤǤ
317ڡ 0:12:12 37538
miki-fs
Ǥߤޤ󡣡
317ڡ 0:13:48 37539
miki-fs
Ǥߤޤ󡣡
317ڡ 0:14:46 37540
Ҥ
Ҥĥޤ
ȣǽŤʤΤϣΣ
ȣǽŤʤΤϣΣ
ȣǽŤʤΤϣΣ
ȣǽŤʤΤϣΣ
ȣǽŤʤΤϣΣ
ȣǽŤʤΤϤʤ
ʹ߽ŤʤΤϤʤΤ
ܣܣܣܣᣱ

׻Ͼ顦Τ褦Ƥǡס˾̤˿᤿Τϴ򤷤Ǥ

ʤ򺣤ͤƤߤޤ
317ڡ 0:16:52 37541
ޥ
Фϡϡ֤⤷Τٽꤷ⡩פȤȡnˡäƺǤǰäƤΤפȤ¤ʤꤷƤޤޤ

ԤˤĤƤϡƤߤפäΤǡ֤ޤäפȤˤʤޤԤˤĤƤΤ礤ؼνΤäΤΤĤʤ餺...ʤ컲üԤäʹȡդνȥХХʤΤʹʤΤǤ...

줫Ͽ̤ˤĤƤǤդƤƶƤޤΤǤۤʤm(__)m
iMac 317ڡ 0:20:34 HomePage:Men @ Work37542
cyclone
0ϴޤޤʤǤ
΢ܡ 317ڡ 0:20:55 37543
礪Ҥ
Ϥϫޤ
317ڡ 0:22:10 37544
ޥ
ȡºݤ˿ߤ򤷤TopڡǤɽ褦ȻפޤκȾǯʬθ깭ʡ֥ȥ꡼ˡפȤˤġˡߤϺϿ̤εȤƴդĤǤޤ礫鿶ߤʤΤǤޤ줿餹ˤǤ⡢ȻפäƤޤȤȤǡ
iMac 317ڡ 0:22:23 HomePage:Men @ Work37545
ޥ
θƤޤǤ֤ɤǤװȤʤ褦˽ޤʽɽ
iMac 317ڡ 0:23:12 HomePage:Men @ Work37546
Ѥ
פ֤Υꥢ륿ǤŪ˷׻Ǥ뤿ǽη׻ߥФ֤ޤ
ߥ򤷤ʤ褦˵Ĥ褦ȴĥäƤΤǤ
ʡԡȯ60km 317ڡ 0:34:59 HomePage:Ĥä37547
ߥͥ
1950ԤޤΤǤ礦
317ڡ 0:41:48 37548
ͣ.ǥ
#37451 ƱҤ׻ΤߤǤ
ޥ뤵ﳲˤäƤʤȤΤȤDzǤ
̺ﳲˤ줿ĥä դФäƤ
317ڡ 0:48:31 37549
CRYING DOLPHIN
ʤ819243ȤƤޤäƱ䡹ϤޤäƤޤ...

#37542
οˡꤵ뤳ȤϤޤ(ex.ǯĺ§ο)
Ρ49ȤʤֹפΤ褦º̤ƽꤵ
ȤؤɤǡΤ褦ľܣˡȣˡˤĤ
ǤϤǤ͡

ĺȸСǯ٤ϻ100ưƻ(Ķ)
122«׻(;)ȥå꤬ФƤޤ
ǯϺǯǡ(
ɤǤ᤿ 317ڡ 1:03:07 HomePage:ƻ37550
⡼ޥ
ϫޤ...^^;...

6^5-1-9^4=1214
6^4-1-9^3=566
6^3-1-9^2=134
6^2-1-9=26
6-1-1=4
(4+1)+(26+1)+(134+1)+(566+1)+(1214+1)+1=1950
Ǹ1Ĥϣ
֤᤮...^^;

ʤ...ʪζ͢ʤʤΤ狼ʤ錄...?
Ŀͤε߱ʪľܼդƤʤä...?
ʥȤդƤޤ...
ǽŪˤϲϤΤǤ礦...?
317ڡ 1:22:38 37551
ϥ饮㡼ƥ
Ϥ褦ޤץǤǤⲿͤ㤤򤷤Ƥ
褦ʡץǤ1947Ǥ
317ڡ 9:20:56 HomePage:湩ؤ˥37552
ϺĹ
1ξ6ˡ15ޤǡ5
2ξ6ˡ559ˡ10ޤǡ27
3ξ6ˡ5559ˡ100ޤǡ135
4ξ6ˡ55559ˡ1000ޤǡ567
5ξ6ˡ555559ˡ10000ȹԤä6ˡǷ奢ȡ
9ˡ8888ޤǤȤơ1215
­1949Ǹ51­ơ1950
ɤΤ¤ޤͤݤäơ
ǧڤ줿ΤǡޤOKȤޤ
ϫޤ
317ڡ 11:11:30 37553
???
3/11Ͽɤҡ̱ˡХ5֤äƵ
Option Explicit
Const max As Long = 1000000
Sub Macro1()
Sheets("Sheet1").Select
Cells(1, 1).Value = 0
Dim a(max, 2) As Integer
Dim n As Long
Dim m As Integer
Dim j As Integer
Dim jj As Integer
For j = 1 To 2
a(0, j) = 1
For n = 1 To max
a(n, j) = 0
Next n
Next j
For n = 1 To max
For j = 1 To 2
m = -6 * (j = 1) - 9 * (j = 2)
a(1, j) = a(1, j) + 1
For jj = 1 To a(0, j)
If a(jj, j) >= m Then
a(jj + 1, j) = a(jj + 1, j) + a(jj, j) \ m
a(jj, j) = a(jj, j) Mod m
End If
Next jj
If a(a(0, j) + 1, j) > 0 Then
a(0, j) = a(0, j) + 1
End If
Next j
If a(0, 1) = a(0, 2) Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
Cells(Cells(1, 1).Value, 2).Value = n
For j = 1 To 2
Cells(Cells(1, 1).Value, j + 2).Value = 0
For jj = a(0, j) To 1 Step -1
Cells(Cells(1, 1).Value, j + 2).Value = Cells(Cells(1, 1).Value, j + 2).Value * 10 + a(jj, j)
Next jj
Next j
Range("B" & Cells(1, 1).Value).Select
End If
Next n
Range("A1").Select
End Sub
317ڡ 12:07:20 37554
uchinyan
Ϥˤϡ

ޤ̴̺Ҥ˴ؤҤ줿ͤΤ̵Ϥΰᤤ򤪵פޤ
ޤʡ츶ȯǤϺǤŪ³ǤϤηײŤ⤢ꡤϫʤäƤ¿Ȼפޤ
ʤȤ餳ƼǤ뤳ȤԤäƽäƴĥäƤޤ礦
Ǥٱư褦Ǥ͡餷ȤǤ
Τ褦̵ϤʼԤ˲Ǥ뤫ʬޤ󤬡Ǥ⤴ϤȻפޤ
ʤߤˡνǤ⤫ʤɤޤβǤϤȤäﳲʤ̵Ǥ

ơϡ
ˡäƻʤΤ̯⡤Ȥ⤷ޤʴǡؤäݤʤäƤޤޤ

ޤ0 ޤ᤿ 0 ʾǹͤޤ
ΤȤ㤨С10ˡ 4 ʲο 10^4 꾮ǡ0 ޤ 10^4 Ĥޤ
Ʊͤˡ㤨С6 ˡ 4 ʲο 6^4 ġ9 ˡ 3 ʲο 9^3 ġΤǡ
6 ˡǤ 9 ˡǤ 4 ο 6^4 - 9^3 ġޤ
ǡ缡
6 ˡ 1 ʲο 6^1 ġ6 ˡǤ 9 ˡǤ 1 ο 6^1 = 6 ġ
6 ˡ 2 ʲο 6^2 ġ9 ˡ 1 ʲο 9^1 ġʤΤǡ
6 ˡǤ 9 ˡǤ 2 ο 6^2 - 9^1 = 36 - 9 = 27 ġ
6 ˡ 3 ʲο 6^3 ġ9 ˡ 2 ʲο 9^2 ġʤΤǡ
6 ˡǤ 9 ˡǤ 3 ο 6^3 - 9^2 = 216 - 81 = 135 ġ
6 ˡ 4 ʲο 6^4 ġ9 ˡ 3 ʲο 9^3 ġʤΤǡ
6 ˡǤ 9 ˡǤ 4 ο 6^4 - 9^3 = 1296 - 729 = 567 ġ
6 ˡ 5 ʲο 6^5 ġ9 ˡ 4 ʲο 9^4 ġʤΤǡ
6 ˡǤ 9 ˡǤ 5 ο 6^5 - 9^4 = 7776 - 6561 = 1215 ġ
ʹߤϡ㤨С
6 ˡ 6 ʲο 6^6 ġ9 ˡ 5 ʲο 9^5 ġʤΤǡ
6 ˡǤ 9 ˡǤ 6 ο 6^6 - 9^5 = 46656 - 59049 < 0
Ȥʤäơ6 ˡ 9 ˡηƱˤʤϤޤ
ʾꡤǤ 0 餷 (^^; Τǡϡ6 + 27 + 135 + 567 + 1215 - 1 = 1949 ġˤʤޤ
ͥνȡ 317ڡ 12:41:42 37555
uchinyan
ǼĤɤߤޤ
0 ޤ᤿Ȥ19491950 ɤǤ⤤ȤˤʤäƤ褦Ǥ͡
ˡϡƱ褦Ǥ
ͥνȡ 317ڡ 12:56:56 MAIL:uchi@sco.bekkoame.ne.jp 37556

ơ֤ˡޤưִϢλŻǡҵ٤ߤǤְʾ塢ˤƤäʤʤ顢褺˽äƤޤΤ¿
317ڡ 15:30:25 MAIL:koyari777@yahoo.co.jp 37557
die neue Frau
ϡ6^(n+1)-9^nͤФ
6^2-936-927
6^3-9^2(8-3)*27135
6^4-9^3(16-9)*81567
6^5-9^4(32-27)*2431215
6^6-9^56^69^5ʤΤǽ褺
äơ27+135+567+12151944
ơ1ξϡ0ޤफޤޤʤǿѤäƤޤ
0ޤ05ޤǤ6̤ȹͤޤ
ʤΤǡ1944+61950Ȥޤ
(0ޤޤʤ)ξϡ1944+51949ȤȤˤʤޤ
ϾγڱǤϤʤ 317ڡ 16:13:00 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37558
die neue Frau
䡢ä˺Ƥޤޤ
3ϳФƤơϥȥåפǤ
Ф٤줿ΤˡǤȤǤ
ϤꡢϿ̤αƶ礭
ϾγڱǤϤʤ 317ڡ 16:14:10 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37559
die neue Frau
äѤꡢϳƱ褦Ǥ
ϾγڱǤϤʤ 317ڡ 16:18:59 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37560
abcba@jugglermoka
ʬ0ޤʤ1949Ǥˡ⳧ͤȤۤƱǤϴؿΤǤ줫ꤵԤƤޤ(^^

ɿʬϤ˵߱ʪϤ򤹤뤿˺˹ԤäƤޤǤΩƤ˶ϤǤѴ򤷤äǤ(ääƤΤ٤ƻ˻äޤ)

̿ڤȤˤߤƴޤ

λüԤ̵Ǥ?

ʬ̵ǤĤ褿Τ̿Ȼ֤ڤˤƤ줫⤬ФäƤȻפޤ

318ʶ 0:52:08 37561
die neue Frau
ԤǤϿɤ줿Ǥ
ϾγڱǤϤʤ 318ʶ 12:49:02 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37562
ơ
1593581215729129565617775
1949ĤǤ͡
0ޤΤʤ1950ĤǤ
1949ޤ
318ʶ 13:19:21 37563
die neue Frau
ޥϤΤǤ
ˤʤäƲ
Υࡼӡ⡢35ۤޤ͡
͡http://www.youtube.com/watch?v=IxUsgXCaVtc

ޤ餳ʥåϤƤޤ

http://static.ak.fbcdn.net/rsrc.php/v1/yf/r/wn29KX6UvhD.swf?v=10150112382576247&ev=0
ϾγڱǤϤʤ 318ʶ 16:25:03 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37564
die neue Frau
⤷ǽʿͤäСᤷޤ
εˡƤߤƤǡǤ礦
ʤ󤫤ϡˤ񤤤Ƥޤ
http://ameblo.jp/die-neue-frau/entry-10832153726.html
ϾγڱǤϤʤ 319ڡ 5:18:54 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37565
die neue Frau
Τ餻ޤ
19˼žִϢΥ٥ȤԤdzŤޤ
http://ameblo.jp/die-neue-frau/entry-10833955739.html
Ǽž֤ȤݤˤαǤ
http://ameblo.jp/die-neue-frau/entry-10833966171.html
ϾγڱǤϤʤ 319ڡ 5:24:11 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37566
hide
3֤˲򤱤ޤ
äƤ뤳Ȥϼ׻ƱʤΤǤǶᤫäBASICǥץȤǤߤޤ

LET N=0
FOR X=1 TO 10
LET A=6^X-1-9^(X-1)
IF A>0 THEN
LET N=N+A+1
END IF
NEXT X
PRINT N
END

1949

ۤ100⤷Ƥޤ
ȡࡡ 319ڡ 20:28:55 37567
ɡǤ
37563F.I.Ʊ񤭽ФǤ͡
¾βͤΤݤʤΤǤΤޤޡ
321ʷ 10:05:08 HomePage:ץեȥ֥37568

οˡ򤹤뤿ɤȻפޤξ郎ϤäꤷʤƻǰǤʸˤϡפȤΤǡ0ޤΤǡοθ3899194921ˤȻפޤ
321ʷ 19:56:47 37569
ơ

ϡ˥󥸤Ǥ
ؤΤȤˤǤƤ
οȤϹͤʤΤǤϤʤǤ礦
ϼʬιͤǤ
ɡǤΥ֥ 322ʲС 11:34:36 37570
die neue Frau
#37569
ΤˤƤߤС
ϾγڱǤϤʤ 322ʲС 14:01:09 MAIL:jjyhr530@yahoo..co.jp HomePage:die neue Frau37571
礪Ҥ
Ǥ0˵դΤϱԤǤͤ͡ϵդޤǤ
礭ʺ䡡 322ʲС 23:33:44 37572
ޥ
#37569ʻ㤵
οˤĤƤϡֻפ椨˴ޤޤʤȽǤƤޤˤĤƤϤŦ̤ǤѼ餤ޤm(__)m
iMac 323ʿ 3:13:26 HomePage:Men @ Work37573

ΤˡֻפǤο̤ϼ갷ʤǤ͡λפޤ
323ʿ 5:02:25 37574