VB Completa los espacios en blanco: encuentra el número perfecto hasta 1000
Atenuar n como entero, q como entero
Atenuar a como entero, m como entero
Atenuar i como entero, t como entero
n = 1
Hacer mientras a <= 1000
a = 2 ^ n * (2 ^ (n 1) - 1)
m = 2 ^ (n 1) - 1
i = 2
q = Int(m/2)
t = 1
Hacer mientras i lt; t = 1
Si m Mod i lt;gt 0 Entonces
i = i 1
De lo contrario
t = 0
Finalizar si
Bucle
Si t = 1 Entonces Imprimir un
n = n 1
Bucle