# prova questo {cat( "a", "\t", "h", "\t", "s", '\n' ); a <- 100; for(h in seq(0,100,5)) cat( a,"\t",h,"\t",sqrt(a^2+h^2), '\n' ) } # # o: a <- 100; for(h in seq(0,100,5)) print( c(a,h,sqrt(a^2+h^2)) )