fumio
ФϡҤ֤֤Ǥ
ǤϤǤϤޤޤ
314ڡ 0:20:38 40379
abcba@baLLjugglermoka
ͤľ᤯򤱤ޤ͡ο޷ΨڤǤɡǿƷϤϤȤƤڤǤ줾ȤݤޤȤطꤷߤǤ
314ڡ 0:32:54 40380
CRYING DOLPHIN
ͤǤä̡ϥޥꤷޤorz
2,3,4,6,8,9Ǻ񤭽Ф23Τ٤κФ
(㡧69ʤ6^99^6Ȥʤꡢ23Τ٤κ2^93^3)
Τʤ줿

ǡ1פ¸ߤ򤹤ä˺Ƥ
˵դ餹ˤǤޤȤϼ
ï⤤ʤԳϡ 314ڡ 0:57:39 HomePage:֤40381

^/^=^/^ ѷǤΤǡ
a^b/b^a ˤƤ
1^4/4^1 = 1/4 , 2^8/8^2 = 4 ߤĤޤ
314ڡ 1:25:04 40382

ɺǸϥץorz

ФƤ򸫤ƤǼ
314ڡ 1:44:09 40383
ϥ饮㡼ƥ
Ϥ褦ޤץǤ
314ڡ 7:31:11 HomePage:湩ؤ˥40384
Ȥ
basic

for a=1 to 9
for b=a+1 to 9
if b=a then goto 30
for c=a+1 to 9
if c=a or c=b then goto 20
for d=a+1 to 9
if d=a or d=b or d=c then goto 10
if a^b*c^d=b^a*d^c then print a;b;c;d
10 next d
20 next c
30 next b
40 next a
end

f9ơ 1 4 2 8 ()
˭ԡ 314ڡ 8:18:01 MAIL:fttnm528@ybb.ne.jp 40385
???
VBSCRIPTǺޤ
for a=1 to 9
for b=a+1 to 9
for c=a+1 to 9
if b<>c then
for d=a+1 to 9
if b<>d and c<>d then
h1=1
for j=1 to b:h1=h1*a:next
for j=1 to d:h1=h1*c:next
h2=1
for j=1 to a:h2=h2*b:next
for j=1 to c:h2=h2*d:next
if h1=h2 then msgbox a&","&b&","&c&","&d
end if
next
end if
next
next
next

ˡ֣򣱲󤫤פΰ̣ʬäƤ館Ǥ礦
314ڡ 9:29:36 40386
uchinyan
Ϥˤϡơϡ
ࡤϻȤѥǤ͡ɤ⤳Ϲͤ뵤ʤΤǤ

ϰۤʤ룱ʤΤ 0 9 Τ줫ǡǾǤ
μΩ뤿ˤϡξդǰδط 057 Ϥꤨޤ
ǡϤκǾ 1234 Τ줫ϡ§Ժ
= 4 ξ
689 Τ줫
3 ǰ˹ͤ 4^9 * 6^8 = 9^4 * 8^6 Ǥ2 ǰοʤΤԲġ
= 3 ξ
4689 Τ줫
3 ǰ˹ͤ 3^8 * 4^9 = 8^3 * 9^4 Ǥ2 ǰοʤΤԲġ
= 2 ξ
34689 Τ줫
3 ǰ˹ͤ 2^9 * 3^4 = 9^2 * 4^32^9 * 6^4 = 9^2 * 4^6 Ǥ2 ǰοʤΤԲġ
= 1 ξ
234689 Τ줫
3 ǰ˹ͤ 1^4 * 2^8 = 4^1 * 8^2 ΤȤˡ2 ǰοäƥӥ󥴡
ϡĥĴ٤¾ˤϤʤΤǡ = 1 = 4 = 2 = 8ˤʤޤ
ͥνȡ 314ڡ 12:24:06 MAIL:uchi@sco.bekkoame.ne.jp 40387
uchinyan
ǼĤɤߤޤ
ɤΤȤʤäƻԺץࡤΤ褦Ǥ͡
ˤϷ׻ΰ̣ͤƤ⤤Ȼפޤ
򺣤Τ褦ʾ󵻽λˤϡ
٤ǯʾγˤϥץDz򤤤Ƥ餦٤ʤΤΤʤʡ
Ȼפä⤷ޤ
ͥνȡ 314ڡ 12:34:07 MAIL:uchi@sco.bekkoame.ne.jp 40388
а
䤢Ƥäꥢ㥤㥦㥨ȻפäƲ򤤤Ƥɡɤ֤ȥǾȤǤʤȻפäΤǡ
315ʶ 14:49:14 40389

CRYING DOLPHINƱѥǤϤʤΤǡ2^3,2^4¤١˽񤤤Ƥ줳졢EXCEL¤٤Ƥ줳졦ʤ4^1äƾǤǼǤʤȣϽƤΤǤˤʤäƤ⤷ơäȣ줿ǤޤäѤ1^4ϤȤ⤫4^1ϻǤʤǤ礦
316ڡ 20:05:00 40390

˻Ƥä˺Ƥ
Ժ6ꤤȻȤΤͤƤ
ʤ2β褫ǹ᤿齪ä
318ʷ 1:13:27 HomePage:40391
ֿء׾ι
ţأãţ̤ǥޥȤäĴ٤ޤ

Sub check()
Dim A, B, C, D, i, j, k, l, n As Integer
n = 1

For i = 1 To 9
For j = 1 To 9
A = Application.WorksheetFunction.Power(i, j)
C = Application.WorksheetFunction.Power(j, i)
For k = 1 To 9
For l = 1 To 9
B = Application.WorksheetFunction.Power(k, l)
D = Application.WorksheetFunction.Power(l, k)

If (A * B = C * D) And i <> j And i <> k And i <> l And j <> k And j <> l And k <> l Then
Worksheets("sheet1").Cells(n, 1) = i * 1000 + j * 100 + k * 10 + l
n = n + 1
End If

Next l
Next k
Next j
Next i
End Sub

1428,2814,4182,8241Ƚ˽ФƤޤ
319ʲС 12:03:32 40392
Ԥ
겡Ǥäճ᤯Ƴ׻ɬפʤäڤǤ͡
320ʿ 12:14:56 MAIL:yeah_pika-pika-chu@ezweb.ne.jp 40393