Como testar se um número é perfeito usando VisuAlg - Exercícios Resolvidos de VisuAlg

Informe um número inteiro: 6
O número informado é um número perfeito.

Algoritmo "Como testar se um número é perfeito em VisuAlg"

Var
  // Variáveis usadas na resolução do problema
  numero: inteiro // número informado pelo usuário
  soma: inteiro // vai guardar a soma dos dígitos
  i: inteiro // para controlar o laço

Inicio
  // inícia a soma como zero
  soma <- 0

  // vamos pedir para o usuário informar o valor inteiro
  escreva("Informe um número inteiro: ")
  // lê o número informado
  leia(numero)

  // um laço que começa em 1 e até o número informado - 1
  para i de 1 até numero - 1 faça
    // o número é divisível pelo valor de i?
    se numero mod i = 0 então
      soma <- soma + i // aumenta a soma
    fimse
  fimpara

  // a soma é igual ao número informado?
  se soma = numero então
    escreva("O número informado é um número perfeito.")
  senão
    escreva("O número informado não é um número perfeito.")
  fimse

Fimalgoritmo