Υѥ褦ǤäƤФ餯͡
613ڡ 0:07:16 40625

ХľäߤʤΤǽ񤭤ޤ͡

ƻƷꣲܷ礱ƤޤƷǤ5!=120̤ǤDEorEDΥ롼Ȥ4!2!=48̤ꡢFAorAFΥ롼Ȥ4!*2=48̤ꡢξξ礬2*3!2!=24̤ʤΤǡ120-48-48+24=48̤ꡣ

빽ɥåʲȻפäƤޤ
613ڡ 0:23:17 40626
ߤ
ȣơĤȣŤ߰ưǤʤ¾ΣȤ߹碌Ϥ٤Ʋǽ

äơΤʤΣᣱ̤꤫ơģŤ߰ư
ƤΤ롣

ʤˣƤȣģŤξޤΡ̤
ʤˣƤΤߤޤΡ̤
ʤϡˣģŤΤߤޤΡ̤
ܤάޤȯۤ­ϰϤȻפޤ

ʾ꣱ݡʤˡݡʤˡݡʤϡˡᣴ̤ꡣ
613ڡ 0:28:50 40627
abcba@baLLjugglermoka
A,1,2,3,4,5,AF24Τ줫롣ơDE٤ʤ顢(4!-222)3=48̤ꡣ

μϡʬݤ餺˷׻ФäȤ֤ʤΤˡ쥬Ȥˡɤ᤮̵̤˥¿Ǥ͡
613ڡ 0:41:07 40628
Mr.ǥ
AFEDȤ̤褦ˤȡ٤ƤιԤϡ5120̤
Τ
ʣAF̤Ρ24*248̤
ʣDE̤Ρ24*248̤
ʣAFDE̤Ρ2*1224̤
AFDE̤ʤΡ12048482448̤
Ȥޤ
613ڡ 0:46:39 40629
⡼ޥ
äȤ......ߤʤƱǤ...^^;
AF,FAʤΤ...2*4!
DE,EDʤΤ...4!*2
ξΤȤ...2*2*3!
5!-2*4!-2*4!+2*2*3!=4!+4!=48
ˤʤΤ...?
613ڡ 0:51:21 40630
ߤ
֣ȯԵǣԻԤäƣפȤʸΤۤ
ɤäʡ
613ڡ 0:54:25 40631

#40629
ƱǤ
613ڡ 1:27:31 HomePage:40632
ϥ饮㡼ƥ
ʬƻ˹ͤ뤳Ȥ϶ǤäƤäݤǤ
613ڡ 6:30:33 HomePage:湩ؤ˥40633
Ȥ
A,B,C,D,E,Fˤ줾1,2,3,4,5,6ֹ򿶤
basicʸ̤ϡ

let s=0
for a=1 to 1
for b=2 to 5
for c=2 to 6
if c=b then goto 50
if b=2 and (c<>3 and c<>4 and c<>5 and c<>6) then goto 50
if b=3 and (c<>2 and c<>4 and c<>5 and c<>6) then goto 50
if b=4 and (c<>2 and c<>3 and c<>6) then goto 50
if b=5 and (c<>2 and c<>3 and c<>6) then goto 50
if b=6 and (c<>2 and c<>3 and c<>4 and c<>5) then goto 50
for d=2 to 6
if d=b or d=c then goto 40
if c=2 and (d<>3 and d<>4 and d<>5 and d<>6) then goto 40
if c=3 and (d<>2 and d<>4 and d<>5 and d<>6) then goto 40
if c=4 and (d<>2 and d<>3 and d<>6) then goto 40
if c=5 and (d<>2 and d<>3 and d<>6) then goto 40
if c=6 and (d<>2 and d<>3 and d<>4 and d<>5) then goto 40
for e=2 to 6
if e=b or e=c or e=d then goto 30
if d=2 and (e<>3 and e<>4 and e<>5 and e<>6) then goto 30
if d=3 and (e<>2 and e<>4 and e<>5 and e<>6) then goto 30
if d=4 and (e<>2 and e<>3 and e<>6) then goto 30
if d=5 and (e<>2 and e<>3 and e<>6) then goto 30
if d=6 and (e<>2 and e<>3 and e<>4 and e<>5) then goto 30
for f=2 to 5
if f=b or f=c or f=d or f=e then goto 20
if e=2 and (f<>3 and f<>4 and f<>5) then goto 20
if e=3 and (f<>2 and f<>4 and f<>5) then goto 20
if e=4 and (f<>2 and f<>3) then goto 20
if e=5 and (f<>2 and f<>3) then goto 20
if e=6 and (f<>2 and f<>3 and f<>4 and f<>5) then goto 20
for g=1 to 1
let s=s+1
10 next g
20 next f
30 next e
40 next d
50 next c
60 next b
70 next a
print s
end

f9ơ48()
˭ԡ 613ڡ 8:11:07 MAIL:fttnm528@ybb.ne.jp 40634
̤ꤹ
BC(ޤCB)Υ顼ѥʤ8336̤꤫ʤ
613ڡ 11:02:00 40635
uchinyan
Ϥˤϡơϡ
ϡ츫񤷤˸ΤǤפäϴñǤʴ

ޤ򸫤ȡ6 ĤΤĤʤäƤʤΤ A FD E ǡʳϤ٤ƤĤʤäƤޤ
ǡޤϤ٤ƤĤʤäƤȤơ줫顤ºݤˤϤĤʤäƤʤΤȹͤޤ
A ȯƤ A äƤΤǡ
٤ƤĤʤäƤС B F 5 Ĥνǡ5! = 120 ̤ꡣ
B F νΤäˡ
A F ĤʤäƤϡF B F κǽ餫ǸΤȤʤΤǡ4! * 2 = 48 ̤ꡤ
D E ĤʤäƤϡD E B F ٤礦ȤʤΤǡ4! * 2 = 48 ̤ꡤ
Ȥʤꡤޤȡ
A F ڤ D E ξĤʤäƤ硤F B F κǽ餫Ǹ D E B F ٤礦Ȥ3! * 2 * 2 = 24 ̤ꡤ
᤮ƤΤDzäޤ
ǡɡ
ο = 120 - 48 - 48 + 24 = 48 ̤
ˤʤޤ
ͥνȡ 613ڡ 17:41:18 40636
uchinyan
ǼĤɤߤޤ
ϡ㴳׻λ㤦⤤ä褦ǤƱͤΤ褦Ǥ
ͥνȡ 613ڡ 12:44:30 MAIL:uchi@sco.bekkoame.ne.jp 40637
???
Υޥ
Option Explicit
Dim a(6) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
a(0) = 1
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim max As Integer
Dim j As Integer
If n < 6 Then
a(n) = 2
max = 6
Else
a(6) = 1
max = 1
End If
While a(n) <= max
If QX(n) Then
If n < 6 Then
Call saiki(n + 1)
Else
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 0 To 6
Cells(Cells(1, 1).Value, j + 2).Value = chiten(a(j))
Next j
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function QX(ByVal n As Integer) As Integer
Dim j As Integer
QX = 1
j = 1
While QX And j < n
If a(j) = a(n) Then
QX = 0
Else
j = j + 1
End If
Wend
If QX Then
'.ABCDEF
'A011110
'B101111
'C110111
'D111001
'E111001
'F011110
Select Case a(n - 1)
Case 1
QX = Val(Mid("011110", a(n), 1))
Case 2
QX = Val(Mid("101111", a(n), 1))
Case 3
QX = Val(Mid("110111", a(n), 1))
Case 4
QX = Val(Mid("111001", a(n), 1))
Case 5
QX = Val(Mid("111001", a(n), 1))
Case Else
QX = Val(Mid("011110", a(n), 1))
End Select
End If
End Function
Private Function chiten(ByVal n As Integer) As String
Select Case n
Case 1
chiten = "A"
Case 2
chiten = "B"
Case 3
chiten = "C"
Case 4
chiten = "D"
Case 5
chiten = "E"
Case Else
chiten = "F"
End Select
End Function
613ڡ 16:37:31 40638
󤹤
ǽޤ񤳤ʤȻפäΤǤɤʤäƤޤ()
¾񤫤ƤޤB,C,D,E,F¤ؤȤƲ򤭤ޤ
ϤޤϽFʤ¤72̤
嵭ġDE٤礦¤122̤
椨ˡ72-24=48(Ans.)

Ϥʸɤ߰㤨"Ƥ"ǤϤʤ"Ƥηϩ"Ȱֻפä
ϤǡޤˤʤꤽǤ͡
613ڡ 17:20:48 40639

DE֤ϩΤȤơ443296̤
DEޤEDηϩΤB,C,(D,E),F
¤ؤ4!2!48̤
964848̤ꡢȷ׻ޤ
614ʶ 0:21:27 40640
ä
P(A)P(B) = P(A) + P(B) - P(A)P(B)
ȤΤϡιͤ˵ڤФʤ褦ʵ
614ʶ 6:52:02 40641
ä
P(A)P(B) = P(A) + P(B) - P(A)P(B)
ȤΤϡιͤ˵ڤФʤ褦ʵ
614ʶ 6:56:24 40642
ϺĹ
ĥǤʤȤ⣹̤ʲȤϥե󥰤ǤޤȾʬ
ʤ񤭽ФƤߤ褦ȡðޤǤδ֤˽񤭽Ф顢ճ᤯ޤɤòɡΤɤٶޤϱääƤðϾ뤵ΰ㤤
614ʶ 21:51:30 40643
ޥ
ǤäȡʻŻߤǡ˽ФʤƤϤʤʤʤꡢޤޤäƤޤޤߥ̵ͭΥåû֤ʤΤǿۤǤޤƤ⡢ˤбǤʤǽޤȤͽᤴλйǤm(__)m
ҡ 619ʿ 22:34:15 HomePage:40644