Klavyeden girilen sayının faktöriyelini hesaplayan program.

uses crt;
   var
   i,a,fak:integer;
   begin
   fak:=1;
   write(‘sayıyı gir:’);readln(a);
   for i:=1 to a do begin
   fak:=fak*i;
   end;
   writeln(fak);
   readln;
   end.

Linkback: https://www.buyuknet.com/klavyeden-girilen-sayinin-faktoriyelini-hesaplayan-program-t8233.0.html