Fatorial

Publicado por Leonardo 28/05/2007

[ Hits: 5.192 ]

Download fatorial.PAS




Este script faz o fatorial do número digitado.

  



Esconder código-fonte

program fatorial;
uses crt;
var
n, x : integer;
r: longint;

begin
   Writeln('Digite o numero ');
   readln(n);
   x:= n;
   r:= 1;
     while x >= 1 do
     begin

     r:= r *  n ;
     x:= x - 1;
     n:= n-1;
     end;
     writeln ('O valor eh',r);

end.

Scripts recomendados

Calculadora de décimo terceiro no Lazarus

Programa lê nome (básico) - Pascal para iniciantes

Sequência de Fibonacci

Media dos Alunos

Cronômetro feito no Lazarus(Delphi 7 para Linux)


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts