Realice un algoritmo que permita ingresar 15 números enteros y entregar al final : a. La cantidad de números ingresados menores a 7. B. La cantidad de números ingresados que terminan en 3.
En resumen
Prueba con esto, es el algoritmo pasado a un programa de consola en vb. Saludos. Module Module1 Dim _arrArrayNumeros(14) As Integer Dim _menoresA7 = 0 Dim _numeroTerminanEn3 = 0 Sub Main() Console. WriteLine("Ingrese los 15 numeros : ") For a = 0 To 14 Console.
Segundopared
Prueba con esto, es el algoritmo pasado a un programa de consola en vb.
Saludos.
Module Module1 Dim _arrArrayNumeros(14) As Integer Dim _menoresA7 = 0 Dim _numeroTerminanEn3 = 0 Sub Main() Console.
WriteLine("Ingrese los 15 numeros : ") For a = 0 To 14 Console.
Write("Num " + (a + 1).
ToString + " : ") _arrArrayNumeros(a) = Console.
ReadLine Console.
Write("") Next For Each x In _arrArrayNumeros If x < 7 Then _menoresA7 = _menoresA7 + 1 End If If StrReverse(x.
ToString).
Substring(0, 1) = "3" Then _numeroTerminanEn3 = _numeroTerminanEn3 + 1 End If Next Console.
WriteLine("Cantidad de numeros menores a 7 : " + _menoresA7.
ToString) Console.
WriteLine("Cantidad de numeros terminan en 3 : " + _numeroTerminanEn3.
ToString) Console.
ReadKey() End SubEnd Module.
Katitacarpio9342
Inicio cant_num_menores.