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

Primo

diferença entre o maior e o menor numero

encontrar o maior e o menor valor em um vetor

Calculadora básica em Pascal

Matrizes


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts