Problema: Escriba un programa para que sume los primeros numeros impares hasta un numero leido por teclado
Solucion: Para realizar este programa se debe inicializar una variable impar en 1 e incrementar su valor de 2 en 2 en cada repeticion de esta manera se generan los numeors impares. En cada repeticion su valor sera igual o menor al numero "n" leido por teclado, ademas debe ser añadido una variable suma la cual debe ser inicializa en cero desde el principio.
01 Module Module1 02 03 Sub Main() 04 ' declaracion de variables 05 Dim suma As Integer 06 Dim num As Integer 07 Dim impar As Integer 08 ' se inicializan variables 09 impar = 1 10 suma = 0 11 ' se solicita un numero positivo 12 Console.WriteLine("Introduzca un entero positivo") 13 num = Val(Console.ReadLine) 14 ' comienza el ciclo 15 Do While impar <= num 16 suma = suma + impar 17 impar = impar + 2 18 Loop 19 'se escribe el resultado 20 Console.WriteLine("La suma de los numeros impares es: " & suma) 21 Console.Read() 22 End Sub 23 24 End Module
Resultado
1 comentarios:
no entiendo muy bien...
Publicar un comentario