Exemplo de Numero Perfeito

[Binho Araujo 0]

algoritmo "NumeroPerfeito"
// Função : Verificar se o numero digitado é Perfeito
// Autor : Binho Araujo
// Data : 13/10/2011
// Seção de Declarações
var

n, perf, cont: inteiro

inicio

// Seção de Comandos

escreval("Informe um numero")
leia(n)



para cont de 1 ate n - 1 faca
  se (n mod cont = 0 ) entao
     perf <- perf + cont

  fimse
fimpara

se (perf = n) entao
  escreval (n, " é perfeito ")

senao
  se (perf <> n) entao
     escreval(n, "Nao é perfeito")
  fimse
fimse

fimalgoritmo

[quitZAUMMM 18]

Nunca poste somente o algoritmo..

dê uma explica, mesmo que alguns saibam o que é o número perfeito, outros podem não saber.

 

e também fala que é pra aprendizado, muitos podem achar que está com problema.

 

[]s