第一问答网»论坛 › 中问网 › 问答 › pascal 计算3到300有几个质数,直接有个数.

pascal 计算3到300有几个质数,直接有个数.

[复制链接]

11 |

4 | 2013-7-28 17:15:09 | 显示全部楼层 |阅读模式

应该是62个质数我错了。。。。是61个

使用道具举报

千问 | 2013-7-28 17:15:09 | 显示全部楼层

喜羊羊也会错啊，不用数，，输一个命令，让电脑自己数大变量中定义个小变量：S中的i答案1：program ttf;var a,n,i,s,x,y:longint;beginfor a:=3 to 300 dobegini:=0;for n:=1 to a doif a mod n=0 theni:=i+1;if

使用道具举报

千问 | 2013-7-28 17:15:09 | 显示全部楼层

自己见程序，如果要改成m~n的自己改下输入就行了vari,j,s:longint;p:boolean;begins:=0;for i:=3 to 300 dobegin
p:=true;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 th

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行