Esse é um programa bem simples, que tira o fator de um número.

  



Esconder código-fonte

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;

Scripts recomendados

soma da diagonal principal de uma matriz

cadastro de multiplos clientes com registro

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

soma de números pares

Tratamentos de Erros


  

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