Respostas

2014-05-22T21:18:58-03:00
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