[ create a new paste ] login | about

Link: http://codepad.org/4ANM1LUe    [ raw code | output | fork ]

appunti2 - Perl, pasted on Apr 29:
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
#
# Il numero di partenza viene fornito come costante.
#
$cont       = 6;
$fattoriale = 1;
do
  {
    $fattoriale *= $cont;
    $cont--;
  }
while ($cont);
print "Il fattoriale è $fattoriale.\n";


Output:
1
Il fattoriale è 720.


Create a new paste based on this one


Comments: