# Pascal's triangle - Il triangolo di Pascal (o di Tartaglia) n <- 6 for(k in 0:n) { cat("C(",k,",0..",k,"): ",sep=""); for(h in 0:k) cat(choose(k,h), " "); cat("\n") } # C(0,0..0): 1 # C(1,0..1): 1 1 # C(2,0..2): 1 2 1 # C(3,0..3): 1 3 3 1 # C(4,0..4): 1 4 6 4 1 # C(5,0..5): 1 5 10 10 5 1 # C(6,0..6): 1 6 15 20 15 6 1