close
#!/usr/bin/perl
$m='4';
foreach $i(1..100){
if($i%$m!=0){
print "$i not could be!\n";
}
if($i%$m==0){
$t=$i;
goto COULD;
}
}
COULD:
print "$t has found!\n";
全站熱搜
留言列表
