// Autor: Prof. Tiago Eugenio de Melo // Data: 29.04.2013 // Contato: tiagodemelo@gmail.com algoritmo "Escolha números perfeitos" var n, som, t: inteiro x: real op: caracter inicio leia (n, op) escolha (op) caso "p" t <- 1 som <- 0 x <- n / 2 enquanto (t<=x) faca se (x%t=0) entao som <- som + t fimse t <- t + 1 fimenquanto se (n = som) entao escreval ("perfeito") senao escreval ("nao perfeito") fimse caso "i" t <- 1 som <- 0 x <- n / 2 enquanto (t<=x) faca se (x%t=0) entao som <- som + t fimse t <- t + 1 fimenquanto se (som = n - 1) entao escreval ("levemente") senao escreval ("nao leve") fimse outrocaso escreval(n, "opcao invalida") fimescolha fimalgoritmo