Fatorial

Publicado por Leonardo 28/05/2007

[ Hits: 5.359 ]

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

calcular o percentual de pessoas que sao maiores de idade

programa para selecionar os números em posições impares em array de 19 espaços e calcular a media

Calculadora de décimo terceiro salário em Pascal

Script Tabuada

Maior numero do Vetor


  

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