不为拿论坛币，只为混个脸熟，我的方法如下：
a<-seq(1,500);
b<-seq(1001,501,-1);
a<-ifelse(a %% 2 ==1,a ,0);
b<-ifelse(b %% 2 ==1,0,b);
c<-a+b;
最后一位数是500还是501就自己添加了

自己解决 求版主关闭主题 谢谢