Números perfeitos

Publicado por Perfil removido 27/12/2007

[ Hits: 7.418 ]

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

maior elemento de uma matriz

Calculadora de décimo terceiro salário em Pascal

armazenar estoque em uma matriz

Existência de triângulo, em Pascal

Calculadora de décimo terceiro no Lazarus


  

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