AYUDA CON ALGORITMO PARA HALLAR DIVISORES
Hola necesito ayuda con este algoritmos porfavorrr
Cuente y muestre el número de divisores de cada número entero entre 1 y 1000 (incluyendo 1 y el propio número)
Diga cuántos números entre 1 y 1000 tienen dos divisores exactamente.
Graciiaass
Cuente y muestre el número de divisores de cada número entero entre 1 y 1000 (incluyendo 1 y el propio número)
Diga cuántos números entre 1 y 1000 tienen dos divisores exactamente.
Graciiaass
Dim intDivisores As Integer
' Cuente y muestre el número de divisores de cada número entero entre
' 1 y 1000 (incluyendo 1 y el propio número)
' Diga cuántos números entre 1 y 1000 tienen dos divisores exactamente.
For intNumero = 1 To 1000
intDivisores = 0
For intDivisor = 1 To 1000
If intNumero / intDivisor = CInt(intNumero / intDivisor) Then
intDivisores = intDivisores + 1
End If
Next
Debug.Print(Trim(CStr(intNumero)) & " - " & Trim(CStr(intDivisores)) & " - " & IIf(intDivisores = 2, "Dos divisores", ""))
Next
' Cuente y muestre el número de divisores de cada número entero entre
' 1 y 1000 (incluyendo 1 y el propio número)
' Diga cuántos números entre 1 y 1000 tienen dos divisores exactamente.
For intNumero = 1 To 1000
intDivisores = 0
For intDivisor = 1 To 1000
If intNumero / intDivisor = CInt(intNumero / intDivisor) Then
intDivisores = intDivisores + 1
End If
Next
Debug.Print(Trim(CStr(intNumero)) & " - " & Trim(CStr(intDivisores)) & " - " & IIf(intDivisores = 2, "Dos divisores", ""))
Next