运行不了 求大师修改

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

data LJX;

do i=1 to 1000;

count=0;

m=sqrt(i);

do j=1 to m;

if mod(i,j)=0 then count+1;

end;

if count=1;

output;

drop count j;

run;

proc print;

run;

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：output Count print outpu Then count

计算出1到1000中的质数

1. data temp;
   
2. do i=2 to 1000;
   
3.    sum=0;
   
4.      do j=2 to i-1;
   
5.          if int(i/j)^=i/j then sum+1;
   
6.      end;
   
7.    if sum=i-2 then output;
   
8. end;
   
9. drop j sum;
   
10. run;

复制代码