Fator
Esse é um programa bem simples, que tira o fator de um número.
Descrição
Esse é um programa bem simples, que tira o fator de um número.
Program fat;
uses crt;
var
limite:integer;
Procedure fatorial(n:integer);
var
i,fat:integer;
Begin
fat:=1;
For i:=1 To n Do
Begin
fat:=fat * i;
end;
Writeln(fat);
Writeln('Pressione um tecla para continuar...');
readkey;
end;