1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl # # Il numero di partenza viene fornito come costante. # $input = 11; $numero = $input; for ($cont = 1; $cont < $input; $cont++) { $numero *= $cont; } print "Il fattoriale è $numero.\n";
1
Il fattoriale è 39916800.