## (gH)   -_-  boucle.r  ;  TimeStamp (unix) : 26 Septembre 2018 vers 18:47

     # boucles imbriquées et BREAK

     cat("table des puissances inférieures ou égales à 1 million\n")

     for (indi in 1:10) {

       for (indj in 1:10) {
         puiss <- indi**indj
         if (puiss<=10**6) {
            cat(sprintf("%9d",puiss))
         } else {
           break
         } # fin si
       } # fin pour indj
       cat("\n")

     } # fin pour indi