Abundant odd numbers: Difference between revisions

m
Line 1,931:
 
# Encontrar los números requeridos por la tarea:
 
# primeros 25 números abundantes impares
Print "Los primeros 25 números impares abundantes:"
Line 1,946 ⟶ 1,945:
While contar < 1000
sumaDiv = SumaDivisores(numimpar)
print sumaDiv & " " & contar
If sumaDiv > numimpar Then contar += 1
numimpar += 2
End While
Print Chr(10) & "1000º número impar abundante:"
Print " " & (numimpar - 2) & " suma divisoria adecuada: " & sumaDiv
 
# primer número impar abundante > mil millones (millardo)
2,130

edits