PDA

Orijinalini görmek için tıklayınız : PERL / Faktoriyel Hesaplama



optimusprime
11.Aralık.2014, 07:50
Kod:
print "Sayiyi gir:";
$fak=<STDIN>;
chop($fak);
$toplam=1;
for($i=$toplam; $i<=$fak; $i++){
$toplam = $toplam * $i;
}
print "Sonuc = $toplam\n";
exit();