Usuario:Ricardocorrea~eswikibooks/programacion13

EJERCICIO 5.18 PAG198

Nota:este ejercicio esta hecho con base en la logica de programacion segun joyanes. _____________________________________________________________________

calcular el factorial de un numero dado

algoritmo factorial
var
 entero :i,n
 real:factorial
inicio
 repetir
  leer(n)
 hasta_que n>0
 factorial<-1
 i<-1
 repetir
  factorial<-factorial*i
  i<-i+1
 hasta quei=n+1
 escribir(factorial)
fin