#Задача 6
n1<-3; m1<-4
Box<- c (rep("White",n1), rep("Black",m1))
k1<-100000
s1<-0
for (i in 1:k) {  Balls<- sample(Box,2, replace=FALSE)
  if ((Balls[1]=="White") & (Balls[2]=="Black"))  {
    s1<-s1+1
}
}
Pobs.1<-s1/k1
Po<-n*m/((n+m)*(n+m-1))+m*n/((n+m)*(n+m-1))
    Pobs.1
    Po

    n2<-3; m2<-4
    Box<- c (rep("White",n2), rep("Black",m2))
    k2<-100000
    s2<-0
    for (i in 1:k) { Balls<-sample(Урна,2, replace=FALSE)
      if ((Balls[1]=="White") & (Balls[2]=="Black"))  {
        s2<-s2+1
      }
    }
    Pobs.2<-s2/k2
    Pobs.2
   X<- Pobs.1 + Pobs.2
   X