ALGORITMO - Programa Que Imprima todos Os Números Perfeitos de 1 a 10.000 [EXERCÍCIO]

Vídeo Tutorial 

ESCREVA UM PROGRAMA QUE IMPRIMA TODOS OS NÚMEROS PERFEITOS ENTRE 1 A 10000. UM NUMERO É DITO PERFEITO QUANDO A SOMA DE SEUS DIVISORES ( EXCETO ELE MESMO) RESULTA NELE. EXEMPLO: 6 = 1 + 2 + 3

MÉTODO USADO NO VIDEO

algoritmo "semnome"

// ESCREVA UM PROGRAMA QUE IMPRIMA TODOS OS NUMEROS PERFEITOS

//ENTRE 1 A 10000. UM NUMERO É DITO PERFEITO QUANDO A SOMA DE SEUS

// DIVISORES ( EXCETO ELE MESMO) RESULTA NELE. EXEMPLO: 6 = 1 + 2 + 3

var

i, numero, soma: inteiro

inicio

// Seção de Comandos

para numero <- 1 ate 29 faca

    soma <- 0

    i    <- 1

    repita

          se (numero mod i = 0) entao

           escreval(i, " é divisor de ", numero)

           soma <- soma + 1

          fimse

          i <- i + 1

    ate ( i >= numero)

         se ( numero = soma) e (numero<>1) entao

        escreval(numero, " é número Perfeito")

        escreval("--------------------------")

        senao

        fimse

fimpara

fimalgoritmo