Soru 14: Girilen sayının faktoriyelini alan program

 

{Sayının faktöriyelini alan program}

program faktoriyelbul;

uses crt;

var

  i, sayi:integer;

  faktoriyel:real;

begin

  clrscr;

  write('Faktoriyeli alınacak sayıyı giriniz :');

  readln(sayi);

  faktoriyel:=1;

 

  for i:=1 to sayi do faktoriyel:=faktoriyel*i;

  write(sayi,' sayısının faktoriyeli:',faktoriyel:42:0);

  readkey;

end.