?一、求1到100之間的偶數：

#!/usr/bin/perl -w

for (1..100){

? if (($_%2 eq 0)){

? ? print "$_ ";

? }

}

二、求1到100之間的奇數：

#!/usr/bin/perl -w

for (1..100){

? if (($_%2 ne 0)){

? ? print "$_ ";

? }

}

三、求1到100之間的素數：

#!/usr/bin/perl -w

for($a=1; $a<100; $a++) {

? ? ? ? $c=0;

? ? ? ? for( $b = $a-1; $b>1;$b--) {

? ? ? ? ? ? ? ? if( $a % $b == 0) {

? ? ? ? ? ? ? ? ? ? ? ? ?$c=1;

? ? ? ? ? ? ? ? ? ? ? ? ?last;

? ? ? ? ? ? ? ? }

? ? ? ? }

? ? ? ? print "$a ?" if( $c == 0 );

}

print "\n";

轉載于:https://blog.51cto.com/alsww/1132237

總結

以上是生活随笔為你收集整理的用perl语言求1到100之间的偶数,奇数及素数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。