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

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";
Поделиться:

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