Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Faktoriyel Programı Cuma Haz. 06 2008, 12:13
program faktoriyel1; uses wincrt; var faktoriyel,sayi,son:longint; begin write('faktoriyeli bulunacak sayi=');readln(son); faktoriyel:=1; for sayi:=1 to son do faktoriyel:=faktoriyel*sayi; writeln(son,'in faktoriyeli=',faktoriyel,'dir'); end.