Discusión:Número de Dudeney

Más información sobre esta página

Quice hacer un algoritmo computacional para encontral algunos numeros de esta serie, pero me salio que la raiz cubica de 512 = 7.9999999999999991

Alguien encontro el siguiente numero de la serie? editar

Try

   Do While nIn > 0
       n3F = nIn ^ 3
       nTam = n3F.ToString.Length
       For nT = 1 To nTam
           nSum = nSum + Val(Mid(n3F.ToString, nT, 1))
       Next
       If nSum = nIn Then
           Console.WriteLine(n3F & " = " & nIn & "*" & nIn & "*" & nIn & " ; " & nIn & " = ")
       End If
       nSum = 0
       nIn = nIn + 1
   Loop

Catch e As Exception

   Console.WriteLine("Fin de nIn" & nIn & " - Error: " & e.Message)

End Try

En este valor cayo mi algoritmo 9223358842721533952, y no pude encontrar el siguiente numero, alguien lo pudo obtener?

~ WilL

Añadir tema