Untitled

B <- 1:8

favorables <- 0
total <- 0

for (i in B) {
  for (j in B) {
    if (j != i) {
      for (k in B) {
        if (k != i && k != j) {
          num <- i*100 + j*10 + k
          total <- total + 1
          if (num < 368) {
            favorables <- favorables + 1
          }
        }
      }
    }
  }
}

probabilidad <- favorables / total

cat("Casos favorables:", favorables, "\n")

cat("Casos totales:", total, "\n")

cat("Probabilidad:", probabilidad, "\n")