Fatorial

Publicado por Leonardo 28/05/2007

[ Hits: 5.383 ]

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

armazenar estoque em uma matriz

equação de 2º grau

Menu

mostrar a meior e a menor temperatura do ano com vetor

Registro


  

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