Como te odio [D4N93R]
jaja
Reto #3Option Explicit On
Module Module1
Dim n1, n2, longitud, num, f, resultado As Integer
Dim strNum As String
Dim i, j, k As Integer
Sub Main()
Console.WriteLine("Ingrese el primer valor del intervalo: ")
n1 = Val(Console.ReadLine())
Console.WriteLine("Ingrese el segundo valor del intervalo: ")
n2 = Val(Console.ReadLine())
For i = n1 To n2
strNum = CStr(i)
longitud = strNum.Length
For j = 0 To (longitud - 1)
num = CInt(CStr(strNum(j)))
If (num = 0) Or (num = 1) Then
f = 1
Else
For k = 1 To num
f *= k
Next
End If
resultado += f
f = 1
Next
If i = resultado Then
Console.WriteLine(i)
Console.WriteLine("Es un numero curioso! :)")
End If
resultado = 0
Next
Console.ReadLine()
End Sub
End Module
No se si puedo poner algun reto
Un saludo