VisualG Algoritmo para gerar os 4 primeiros números perfeitos

[Lucas Da Silva Aleixo 35]

. Preciso de uma fórmula que gere os 4 primeiros números perfeitos de um número perfeito informado pelo usuário.

 

. Um número perfeito é aquele que é igual à soma dos seus divisores. Ex: 6 = 1+2+3, 28 = 1+2+4+7+14.

 

. Já consegui fazer um algoritmo para verificar se o número é perfeito. Veja:

 

algoritmo "semnome"

var
  n, x, soma :inteiro
inicio
  escreva(" - Informe um número: ")
    leia(n)
    
  para x de 1 ate (n - 1) faca
    se (n % x = 0) então
      soma <- (soma + x)
    fimse
  fimpara
  
  se (soma = n) então
    escreval()
    escreval(" * Este número é perfeito.")
  senao
    escreval()
    escreval(" * Este número é imperfeito.")
  fimse
fimalgoritmo

. O problema é que preciso exibir os 4 primeiros números perfeitos caso o número informado for perfeito. Alguém saberia como fazer isso?

 

Desde já agradeço.

[Simon Viegas 1.598]

10 horas atrás, Lucas Da Silva Aleixo disse:

O problema é que preciso exibir os 4 primeiros números perfeitos caso o número informado for perfeito. Alguém saberia como fazer isso?

 

Teoricamente já tem um algoritmo para verificar se um número é perfeito ou não. Daí, você precisa pegar os números do domínio do problema, ou seja, os números naturais (0, 1, 2, 3, 4, 5, 6, 7....), e ir testando um a um... até que encontre 4 números que são perfeitos.