# quesito i).
urna <- c(1:7)
prove <- 100000
num <- 0; den <- 0
for (i in 1:prove)
{
    out <- sample(urna,size=2,replace=FALSE)
    den <- den + 1
    if (out[1]%%2 == 0 & out[2]%%2 == 0) num <- num+1
}

cat(num,den,num/den,"\n")