# 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)) )