用perl语言查找20个质数
答案:3 悬赏:10 手机版
解决时间 2021-02-17 02:01
- 提问者网友：献世佛
- 2021-02-16 20:51
用perl语言查找20个质数
最佳答案
- 五星知识达人网友：冷風如刀
- 2021-02-16 21:06
找20个质数的PERL程序代码如下：
$i=2;#开始找的数
$n=0;#找到的个数
while($n<=20){
$chk=1;
for ($j=2;$j<$i;$j++){
$chk=0 if ($i%$j==0);
}
if ($chk){
print $i," ";
$n++;
}
$i++;
}运行结果：
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73
$i=2;#开始找的数
$n=0;#找到的个数
while($n<=20){
$chk=1;
for ($j=2;$j<$i;$j++){
$chk=0 if ($i%$j==0);
}
if ($chk){
print $i," ";
$n++;
}
$i++;
}运行结果：
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73
全部回答
- 1楼网友：傲气稳了全场
- 2021-02-16 23:33
楼主说详细点啊！
- 2楼网友：未来江山和你
- 2021-02-16 21:54
楼主不说清楚很难实现
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯