Red de conocimiento informático - Conocimiento informático - Ayúdame a programar un VF

Ayúdame a programar un VF

nadd=0

para i=1 a 10

cadd=1

para j=i a 1 paso -1

cadd=cadd*j

endfor

nadd=nadd cadd

endfor "10! 9! 8! ... 1! =", nadd

O personalizar el factorial

clear

entrada "Ingrese el factorial que desea acumular en:" a n

nadd=0

para i=1 a n

cadd=1

para j=i a 1 paso -1

cadd=cadd*j

endfor

nadd=nadd cadd

ENDFOR alltrim(str(n)) "!" alltrim(str(n-1) )) "!" alltrim(cadena(n-2)) "!" " ... 1!=",nadd