[過去ﾛｸﾞ] 高校数学の質問スレ（医者・東大卒専用） Part438 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

372: 2024/12/04(水)09:35 ID:M2J+bJMI(1/2) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
372: [sage] 2024/12/04(水) 09:35:44.71 ID:M2J+bJMI (* 1から100までの整数から異なる10個を選び、その合計が5の倍数になる確率を求めなさい。 *) solve[nn_,n_,m_]:=( ass=Counts[#]& /@ Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1]; li=KeyValueMap[List,#]& /@ ass; {q,r}=QuotientRemainder[nn,m]; c=Flatten@{Table[q+1,r],Table[q,m-r]}; m2c[x_] :=( i=If[x[[1]]==0,m,x[[1]]]; Binomial[c[[i]],x[[2]]]); cases=Total[Times@@@ (m2c /@ # & /@ li)]; (* cases=Total[Times@@ #&/@ (m2c /@ # & /@ li)];*) cases/Binomial[nn,n] ) solve[100,10,5] SetPrecision[%,50] http://rio2016.5ch.net/test/read.cgi/math/1723152147/372
からまでの整数から異なる個を選びその合計がの倍数になる確率を求めなさい

---

上下前次1-新書関写板覧索設栞歴

---

あと 630 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.023s