作业帮 > 综合 > 作业

用pascal编写程序 求1000内的素数(素数就是只能被1和它自己本身整除,素数比如:2、3、5、7……)

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/30 10:09:07
用pascal编写程序 求1000内的素数(素数就是只能被1和它自己本身整除,素数比如:2、3、5、7……)
用pascal编写程序 求1000内的素数(素数就是只能被1和它自己本身整除,素数比如:2、3、5、7……)
用pascal编写程序 求1000内的素数(素数就是只能被1和它自己本身整除,素数比如:2、3、5、7……)
以下是求n以内的素数的程序.只要输入n的值,就能求出n以内所有的素数.var n,i,s:integer; yes:boolean;begin  write('N='); readln(n); s:=0;  for n:=2 to n do  begin    yes:=true;{先假定n是素数}    for i:=2 to trunc(sqrt(n)) do      if n mod i=0 then begin yes:=false; break; end;    if yes then    begin      inc(s); write(n:5);{计数,输出}      if s mod 10=0 then writeln;{控制每行输出10个数}    end;  end;  writeln;  writeln('Total=',s);end.