Вычисление факториала рекурсией

Категория: Perl
2011-08-23 23:16:17
code: #perl
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4.  
  5. $n=shift;
  6.  
  7. $f=1;
  8.  
  9. for($i=2; $i<=$n; $i++)
  10. {
  11.     $f*=$i;
  12. }
  13.  
  14. print "$f\n";
Поделиться:

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

теги: факториал, рекурсия