Fatorial em Pascal

Mais um clássico do Pascal que é o número Fatorial.

Para lembrar como exemplo: 5! = 5.4.3.2.1 = 120

Fatorial Pascal.png

Código Fonte:

 Program Fatorial;  
 Uses Crt;  
 var  
  n : Integer;  
  i : Integer;  
  r : LongInt;  
 begin  
  ClrScr;  
  WriteLn ('Fatorial 1.0');  
  WriteLn;  
  // Entrada dos Dados  
  repeat  
   Write ('Entre com o numero (3 a 20): ');  
   ReadLn (n);  
  until (n>=3) and (n<=20);  
  // Calculos  
  r := 1;  
  for i := 2 to n do  
   r := r * i;  
  // Saida de Dados (Resultado)  
  WriteLn ('O Fatorial do numero ',n,' ' igual a ',r:12);  
  WriteLn;  
  Write ('Aperte uma tecla para sair do programa!');  
  ReadLn;  
 end.  

Tem dúvida em Pascal. Envie para mim: telles.wellington@bol.com.br

Um comentário:

  1. KARA VCS ESTÃO DE SACANAGEM..E UMA MERDA.,, POH BICHO
    " PALAVRAS DE HENRIQUE"

    ResponderExcluir