Var
entrada, fatorial, loop : inteiro
Inicio
escreval ("Digite um número")
fatorial <- 1
leia (entrada)
para loop <- 1 ate entrada faca
fatorial <- fatorial * loop
fimpara
escreval ("O Fatorial de",entrada, " é",fatorial)
Fimalgoritmo
0 comentários: