Por favor
Como le puedo sacar los factores a un numero cualquiera.
Por ejemplo si me dan 100, la respuesta seria 2 2 5 5
Solo se que sehacen con sentncias repetitivas
Por ejemplo si me dan 100, la respuesta seria 2 2 5 5
Solo se que sehacen con sentncias repetitivas
1 Respuesta
Respuesta de conectado
1
Lindo desafío.
No se si es lo que necesitas pero da exactamente lo que dices en el ejemplo:
a = 100
Do
For i = 9 To 2 Step -1
If a Mod i = 0 And i <> a Then
a = a / i
bentro = True
sFactor = i & " " & sFactor
Exit For
End If
Next
If Not bentro Then Exit Do
bentro = False
Loop While a > 1
sFactor = Trim(a & " " & sFactor)
No se si es lo que necesitas pero da exactamente lo que dices en el ejemplo:
a = 100
Do
For i = 9 To 2 Step -1
If a Mod i = 0 And i <> a Then
a = a / i
bentro = True
sFactor = i & " " & sFactor
Exit For
End If
Next
If Not bentro Then Exit Do
bentro = False
Loop While a > 1
sFactor = Trim(a & " " & sFactor)
