[ create a new paste ] login | about

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

appunti2 - Perl, pasted on Apr 29:
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl

# Il numero di partenza viene fornito come costante.
$numero = 7;
$cont = $numero -1;
while ($cont > 0)
  {
    $numero = $numero * $cont;
    $cont = $cont -1;
  }
print "Il fattoriale è $numero.\n";


Output:
1
Il fattoriale è 5040.


Create a new paste based on this one


Comments: