sumfu<-function(a,b,n=0){ if(a<b){ for(i in a:b){n=n+i} }else for(i in b:a){n=n+i} return <-cat(" n= ",n) } sumfu(scan(),scan())