FAKTORİYEL HESAPLAMA

CLS
INPUT "FAKTORIYELI HESAPLANACAK SAYIYI GIRINIZ="; A#
kes# = 1
FOR TUT# = A# TO 1 STEP -1
kes# = kes# * yel#
NEXT
PRINT A#; " SAYISININ FAKTORİYELİ "; kes#