Question

crie um algoritmo que receba um numero inteiro diferente de zero, e calcule o fatorial deste numero.

Answer 1

algoritmo "Exec1" 

var 
n, i, fatorial: inteiro 

inicio 

escreva("Digite um valor: ") 
leia(n) 

fatorial<-1 

para i de 1 ate n faca 

fatorial<-fatorial*i 

fimpara 

escreval("O fatorial de ",n," e: ",fatorial) 

fimalgoritmo