Question

Escreva um programa que lido um numero, calcule e informe o seu fatorial. Ex.: 5!= 5 * 4 * 3 * 2 * 1 = 120.

VisuAlg

Answer 1

→→→

Resposta:

Algoritmo "programa"

Var

num, numero, fatorial: inteiro;

Inicio

     escreva("Digite um número: ")

     leia(num)

     fatorial <- num

     numero <- num

     

     enquanto num-1>0 faca

           fatorial <- fatorial * (num - 1)

           num <- num - 1

     fimenquanto

     

     se numero = 0 entao

          escreva("O fatorial de", numero," é : 1")

     senao

          escreva("O fatorial de", numero," é :", fatorial)

     fimse

Fimalgoritmo

Explicação:

lê um número e multiplica ele pelo seu número anterior até que ele menos 1 seja 0. Se o número for 0 imprime 1 (0! = 1), se não imprime o fatorial do número.

espero ter ajudado

→→→