ALGORITMO - Números Amigos entre 1 a 10.000 [EXERCÍCIO]

Vídeo Tutorial

ESCREVA UM PROGRAMA QUE CALCULE E ESCREVA TODOS OS POSSÍVEIS NÚMEROS AMIGOS ENTRE 1 E 10.000.

(EXERCÍCIO FEITO NO PROGRAMA VISUALG)

Método Usado No Vídeo

algoritmo "NÚMEROS AMIGOS"
// ESCREVA UM PROGRAMA QUE CALCULE E ESCREVA TODOS OS
// POSSÍVEIS NÚMEROS AMIGOS ENTRE 1 E 10.000.

var
somadiv: vetor [1..300] de inteiro
i, a, soma: inteiro

inicio
// Seção de Comandos
para a de 1 ate 300 faca
        soma <-0
        para i de 1 ate a-1 faca

              se (a%i=0) entao
                   soma<-soma+i
             fimse

        fimpara
        somadiv[a]<-soma
fimpara

para i de 1 ate 300 faca
       escreval("Esse Numero ", i, " é amigo de ", somadiv[i])
fimpara

fimalgoritmo