1 |
<span style="color: #ff0000;">Dado um inteiro não-negativo <em>n</em>, determinar <em>n</em>!</span> |
[PASCAL]program Fatorial;
var
n, x, Contador, fatorial:integer;
begin
writeln (”);
writeln (‘ Calculo do fatorial de um numero’);
writeln (”);
write (‘Entre com um inteiro nao-negativo: ‘);
read (n);
fatorial := 1;
Contador := 1;
repeat
fatorial := fatorial*Contador;
Contador := Contador+1
until Contador > n;
writeln (‘O valor de ‘,n,’!: ‘,fatorial);
end.[/PASCAL]