高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

375: 2024/12/05(木)12:36 ID:YJ2FHyON(1/2) AAS
(* 1から2024までの整数から12個を選び(同じ数があってもよい）その合計が5の倍数になる確率を求めなさい。 *)
solve[nn_,n_,m_]:=(
t1=Flatten[Table[Sort /@ IntegerPartitions[x,{n},Range[0,m-1]],{x,m*Range[0,n-1]}],1];
t2=Table[If[#==0,m,#]& /@ t1[[j]],{j,1,Length@t1}];
{q,r}=QuotientRemainder[nn,m];
c=Flatten@{Table[q+1,r],Table[q,m-r]};
Total@Table[n!/Times@@(Values@Counts@t2[[j]]!) Product[c[[i]],{i,t2[[j]]}],{j,1,Length@t2}]/nn^n
省1

---

376(1): 2024/12/05(木)13:46 ID:YJ2FHyON(2/2) AAS
数を小さくしてソルバーと総当たり解を照合。

In[3]:= nn=123;

In[4]:= n=4;

In[5]:= m=5;

In[6]:= solve[nn,n,m]
省9

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.032s