>>174
>159を例にやってみる。

白玉に1,2,3,4の番号を書いて、赤玉に5,6,7,8,9の番号を書く。
1 2 3 4 5から始めて5 6 7 8 9まで126個を列挙する。
1以上4以下　または　5以上9以下の玉が2個含まれる組合せを数えれば100個ある。
ゆえに、求める確率は100/126。

手作業は面倒なので計算機に数えさせる
> cat(sum(apply(combn(9,5),2,function(x) sum(1<=x & x<=5)==2 | sum(6<=x & x<=9)==2 )),'/',choose(9,5))
100 / 126