Números perfeitos

Publicado por Perfil removido 27/12/2007

[ Hits: 7.258 ]

Download EXE3.PAS




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

  



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.

Scripts recomendados

Calculadora de décimo terceiro salário em Pascal

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

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

mostrar a meior e a menor temperatura do ano com vetor

Mostrar maior e menor


  

Comentários
[1] Comentário enviado por albertguedes em 27/12/2007 - 22:36h

Pra mim todo número é perfeito, e também pensava que o Pascal estivesse morto. ; )

Brincadeiras a parte, valeu pela iniciativa Joana. Continue praticando.
Pois a pratica leva a perfeição.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts