お試し:素数計算

テストです

テストです

  • タグ:
  • タグはありません
#!/usr/bin/perl
use strict;
use warnings;
print "Input Number : ";
my $num = <STDIN>;
my $count = 0;
for(my $i = 2; $i <= $num; $i++){
    my $f = 0;
    for(my $j= $i - 1; $j > 1; $j--){
        if($i % $j == 0 && $i != 1){
            $f = 1;
        }
    }
    if($f==0){
        printf("%d\n", $i,$count++);
    }
}