用Perl求一串奇数的和

Question

用Perl 语言，求1+3+5+7+……99，初学，求大家帮忙

Answer 1

$a = 0;
for (1..100){
     if (($_%2 ne 0)){
        $a = $a + $_;
    }
}
print "$a";

如有帮助，请点击我的回答下方的【采纳该答案】按钮帮忙采纳下，谢谢!