dado01 <- sample(1:6, 1000, replace = TRUE)
dado02 <- sample(1:6, 1000, replace = TRUE)
dado03 <- sample(1:6, 1000, replace = TRUE)
dado04 <- sample(1:6, 1000, replace = TRUE)
dado05 <- sample(1:6, 1000, replace = TRUE)
dado06 <- sample(1:6, 1000, replace = TRUE)
dado07 <- sample(1:6, 1000, replace = TRUE)
dado08 <- sample(1:6, 1000, replace = TRUE)
dado09 <- sample(1:6, 1000, replace = TRUE)
dado10 <- sample(1:6, 1000, replace = TRUE)
dado11 <- sample(1:6, 1000, replace = TRUE)
dado12 <- sample(1:6, 1000, replace = TRUE)
dado13 <- sample(1:6, 1000, replace = TRUE)
dado14 <- sample(1:6, 1000, replace = TRUE)
dado15 <- sample(1:6, 1000, replace = TRUE)
dado16 <- sample(1:6, 1000, replace = TRUE)
dado17 <- sample(1:6, 1000, replace = TRUE)
dado18 <- sample(1:6, 1000, replace = TRUE)
dado19 <- sample(1:6, 1000, replace = TRUE)
dado20 <- sample(1:6, 1000, replace = TRUE)
dado21 <- sample(1:6, 1000, replace = TRUE)
dado22 <- sample(1:6, 1000, replace = TRUE)
dado23 <- sample(1:6, 1000, replace = TRUE)
dado24 <- sample(1:6, 1000, replace = TRUE)
dado25 <- sample(1:6, 1000, replace = TRUE)
dado26 <- sample(1:6, 1000, replace = TRUE)
dado27 <- sample(1:6, 1000, replace = TRUE)
dado28 <- sample(1:6, 1000, replace = TRUE)
dado29 <- sample(1:6, 1000, replace = TRUE)
dado30 <- sample(1:6, 1000, replace = TRUE)
dado31 <- sample(1:6, 1000, replace = TRUE)
dado32 <- sample(1:6, 1000, replace = TRUE)
dado33 <- sample(1:6, 1000, replace = TRUE)
dado34 <- sample(1:6, 1000, replace = TRUE)
dado35 <- sample(1:6, 1000, replace = TRUE)
dado36 <- sample(1:6, 1000, replace = TRUE)
dado37 <- sample(1:6, 1000, replace = TRUE)
dado38 <- sample(1:6, 1000, replace = TRUE)
dado39 <- sample(1:6, 1000, replace = TRUE)
dado40 <- sample(1:6, 1000, replace = TRUE)
dado41 <- sample(1:6, 1000, replace = TRUE)
dado42 <- sample(1:6, 1000, replace = TRUE)
dado43 <- sample(1:6, 1000, replace = TRUE)
dado44 <- sample(1:6, 1000, replace = TRUE)
dado45 <- sample(1:6, 1000, replace = TRUE)
dado46 <- sample(1:6, 1000, replace = TRUE)
dado47 <- sample(1:6, 1000, replace = TRUE)
dado48 <- sample(1:6, 1000, replace = TRUE)
dado49 <- sample(1:6, 1000, replace = TRUE)
dado50 <- sample(1:6, 1000, replace = TRUE)


risultato <- dado01 + dado02 + dado03 + dado04 + dado05 + dado06 + dado07 + dado08 + dado09 + dado10 + dado11 + dado12 + dado13 + dado14 + dado15 + dado16 + dado17 + dado18 + dado19 + dado20 + dado21 + dado22 + dado23 + dado24 + dado25 + dado26 + dado27 + dado28 + dado29 + dado30 + dado31 + dado32 + dado33 + dado34 + dado35 + dado36 + dado37 + dado38 + dado39 + dado40 + dado41 + dado42 + dado43 + dado44 + dado45 + dado46 + dado47 + dado48 + dado49 + dado50


minimo <- 10*trunc((min(risultato) - 1)/10)
massimo <- 10 + 10*trunc((max(risultato) + 1)/10)
tagli <- minimo : massimo
hist(risultato, breaks = tagli)