25 lines
481 B
Text
25 lines
481 B
Text
OpenConsole()
|
|
|
|
limite.l = 2e6
|
|
Dim DSum.l(limite+1)
|
|
Dim DCount.l(limite+1)
|
|
|
|
For i.l = 0 To limite
|
|
DSum(i) = 1
|
|
DCount(i) = 1
|
|
Next i
|
|
|
|
For i = 2 To limite
|
|
j.l = i + i
|
|
While j <= limite
|
|
If DSum(j) = j
|
|
PrintN(RSet(Str(j), 8) + " equals the sum of its first " + RSet(Str(DCount(j)), 3) + " divisors")
|
|
EndIf
|
|
DSum(j) = DSum(j) + i
|
|
DCount(j) = DCount(j) + 1
|
|
j = j + i
|
|
Wend
|
|
Next i
|
|
|
|
PrintN(#CRLF$ + "--- terminado, pulsa RETURN---"): Input()
|
|
CloseConsole()
|