Este script faz o fatorial do número digitado.

• Download fatorial.PAS
• Enviar nova versão

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.

controle de notas de uma clase com vetor e registro

Números perfeitos

calcular o percentual de pessoas que sao maiores de idade

intercalar dois arrays (vetores)

validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.

Nenhum coment�rio foi encontrado.