probs <- rep(0,1)
for (d1 in 1:6)
for (d2 in 1:6)
for (d3 in 1:6) {
s <- d1 + d2 + d3
probs[1] <- probs[1] + ((s > 9)) }
probs <- probs / 6^3
print(probs)
## [1] 0.625
Since the dice is fair, you have \(1/2\) chance of getting an odd number on each roll. The probability is \(.5\)