Поиск простых чисел

Категория: Perl
2011-08-25 21:00:31

Простое число — это натуральное число, которое имеет ровно два различных натуральных делителя: единицу и самого себя.

code: #perl
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4.  
  5. my $n=shift or die "$0: Укажите число в командной строке\n";
  6.  
  7. print "2\n" if $n>=2;
  8.  
  9. for(my $i=3; $i<=$n; $i+=2)
  10. {
  11.     my $flag=1;
  12.     for(my $j=3; $j<=sqrt $i; $j+=2)
  13.     {
  14.         if($i % $j==0)
  15.         {
  16.             $flag=0;
  17.             last;
  18.         }
  19.     }
  20.     print "$i\n" if $flag;
  21. }
Поделиться:

Похожие статьи:

теги: новички, простые числа