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

• Download Fator.pas
• Enviar nova versão

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;

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

Calculadora completa com porcentagem(Lazarus)

média dos numeros informados em posiçoes pares em um vetor

diferença entre o maior e o menor numero

Cáculo de Fatorial, utilizando-se de Repeat - Until

Nenhum comentário foi encontrado.