GuiSouza

Eu estava tentando resolver esse exercício e consegui porque o seu algoritmo me deu uma ideia. O meu ficou assim: algoritmo "cap1215ex3" var n,soma,x,r:inteiro inicio // Seção de Comandos Repita n<-n+1 soma<-0 para x de 1 ate (n - 1) faca r<-n-(int((n)/(x))*x) //mod e % não estava funcionando, entao fiz manualmente se (r = 0) entao //r é resto soma <- (soma + x) fimse fimpara ate soma=n escreval(n, " é um número perfeito") Pra descobrir o próximo número perfeito é só copiar e colar o mesmo algoritmo em seguida, porque o próximo comando dele é n<-n+1, o que significa que ele vai pular o número perfeito já descoberto. No meu pc eu colei o algoritmo 4 vezes, mas o VisualG só conseguiu descobrir até o 3º número perfeito, depois disso ele parou.