Mouse
PROBLEMA: Desarrole un programa para encontrar e imprimir todos los divisores de todos los numeros comprendidos entre 1 y 100. Para ello desarrolle un procedimiento que genere cada uno de los numeros y otro procedimiento que determine los divisores que pueda tener un numero cualquiera.
01 Module Module1 02 ' programa principal 03 Sub Main() 04 Generar_numero() 05 End Sub 06 07 ' procedimiento que imprime los divisores de un numero 08 Private Sub imprimir_divisores(ByVal numero As Integer) 09 Dim divisor, cociente, producto As Integer 10 For divisor = 2 To numero 11 cociente = numero \ divisor 12 producto = cociente * divisor 13 If producto = numero Then 14 Console.WriteLine(divisor & " es un divisor de " & numero) 15 End If 16 Next 17 Console.WriteLine("presione una tecla para continuar") 18 Console.ReadLine() 19 End Sub 20 21 ' procedimiento que genera los numeros de 1 a 100 22 Private Sub Generar_numero() 23 Dim numero As Integer 24 For numero = 1 To 100 25 imprimir_divisores(numero) 26 Next 27 End Sub 28 End Module
Posted in: 
2 comentarios:
Hola amigo, me gusto la entrada, pero quisiera saber como publicas esa caja de codigos html en tu blog, asi con numeros, yo se hacerlos, pero sin numeros..
desde ya hace mucho que trato de buscar algun codigo, pero no encuentro, si me ayudaras estaria mil veces agradecido.
mi correo:
retazosdemicorazon@gmail.com
gracias
como se hace un programa con while que imprima divisores del 1 al 100 porfavor contesten
Publicar un comentario