Fatorial

Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).

Exercícios

C, N, F: Inteiro
R: Caractere

Repita

Escreva("Digite um numero: ")
Leia(N)
C <- N
F <- 1

Repita

F <- F * C
C <- C - 1

Ate (C < 1)

EscrevaL ("O valor do fatorial de ", N, " e igual a ", F)
Escreva ("Quer continuar? [S/N]")
Leia(R)
LimpaTela

Ate (R = "N")