Lê um número e verifica se ele é perfeito..

• Download EXE3.PAS
• Enviar nova versão

Esconder código-fonte

program perfeito;
uses crt;
var i,num,total:integer;

function verifica(num:integer):integer;
begin
for i:=1 to num-1 do
if num mod i=0 then
total:=total+i;

if total=num
then writeln('o num e ',num,' e perfeito')
else writeln('o num ',num,' n e perfeito');

end;

begin
    clrscr;
    readln(num);
    verifica(num);
    readln;
end.

programa pra somar e tirar média

Função Fatorial Recursiva em Ada 95

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

Script Copa do Mundo

Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)