高校数学の質問スレ（医者・東大卒専用） Part438 (372ﾚｽ)
上下前次1-新
371: 12/04(水)00:16 ID:FPvs5P9c(1) AAS
高校数学スレじゃ誰も構ってもらえず息絶えたみたいだね
372: 12/04(水)09:35 ID:M2J+bJMI(1) AAS
(* 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)];*)
省4
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.997s*