uses crt;
var
numero, contador, i, j: integer;
Begin
// Site: http://programjm.blogspot.com.br/
// Autor: João Matheus Santos Assis
textcolor(15);
writeln;
contador:= 0;
while (contador < 5) do begin
contador:= contador + 1;
// Inicializando variáveis.
j:= 1;
numero:= -1;
// Só serão aceitos valores maiores ou iguais à zero.
while (numero < 0) do begin
write (' NUMERO...: ');
readln (numero);
end;
for i:=1 to numero do
j:=j * i;
writeln (' Fatorial de ',numero,': ',j);
writeln;
end;
readkey;
end.
Artigos relacionados em Pascal:
- Calculando o IMC em Pascal
- Quadrado e Cubo dos números entre 1 e 20 em Pascal.
- Programa que verifica se um número é primo em pascal
- MDC em Pascal
- Utilização de registro em Pascal
- Desenhando um quadrado em Pascal
- Desenhando um triângulo em Pascal
- Simulador do Jogo da Mega Sena em Pascal
- Determinante da matriz em Pascal
 |
| Feito no Dev-Pascal 1.9.2 | Executável |
