Números perfeitos

Publicado por Perfil removido 27/12/2007

[ Hits: 7.270 ]

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

Funções strings e matemáticas

Exemplo de for que mostra 6 números em ordem crescente

calculo da somatoria da diagonal principal

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

Sequência de Fibonacci


  

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