Factorial using function


DECLARE FUNCTION FACT(N)
CLS
INPUT"ENTER ANY NO";N
PRINT"FACTORIAL=":FACT(N)
END

FUNCTION FACT(N)
F=1
FOR I =1 TO N
F=F*I
NEXT I
FACT=F
END FUNCTION


Comments

Popular posts from this blog

experience of SEE exam cancelled and covid-19

My journey in jagat mandir