Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1355730
  • 博文数量: 239
  • 博客积分: 5909
  • 博客等级: 大校
  • 技术积分: 2715
  • 用 户 组: 普通用户
  • 注册时间: 2010-07-24 20:19
文章分类

全部博文(239)

文章存档

2014年(4)

2013年(22)

2012年(140)

2011年(14)

2010年(59)

我的朋友

分类:

2010-10-19 22:19:40

#!/usr/bin/perl -w

use strict;

my ($a,$b,$c);
$b=0;
for ($a=6;$a<1001;$a++)
{
    my $flag;
    for($c=2;$c<$a;$c++)
    {
        if($a%$c)
        {
            $flag=1;
            next;
        }
        else
        {
            $flag=0;
            last;
        }    
    }
    if($flag==1)
    {
    $b++;
    print $a."\n";
    }
    
}
print "There are $b in all.\n";


阅读(1038) | 评论(1) | 转发(0) |
给主人留下些什么吧!~~

chinaunix网友2010-10-20 11:01:25

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com