# -----------------------------------------------------------------------
moneta <- c("TESTA","CROCE")
nrep <- 1000
out <- rep(NA,nrep)

for (i in 1:nrep)
{
    x <- sample(dado,1)
    k <- 2
    if (x<3) k <- 1
    if (x>4) k <- 3
    switch(k,
       {y <- sample(moneta,size=2,replace=TRUE)
        z <- sum(y == "TESTA")},
       {y <- sample(moneta,size=3,replace=TRUE)
        z <- sum(y == "TESTA")},
       {y <- sample(moneta,size=4,replace=TRUE)
        z <- sum(y == "TESTA")}
    )
    out[i] <- z
}

table(out)
# -----------------------------------------------------------------------



# -----------------------------------------------------------------------
a <- 1
n <- 0
while(a != 0)
{
   olda <- a
   a <- a/2
   n <- n + 1
}

print(n)
print(olda)
# -----------------------------------------------------------------------