Visual Basic.NET - Ciclo while, do while

 
Vista:

Ciclo while, do while

Publicado por Doris Villaverde (1 intervención) el 03/06/2017 13:32:13
Hola me podrían ayudar a resolver esos problemas mediante while, do while, do until , do while loop en Visual Básic


1.Encontrar tres números enteros A; B; C, todos mayores que 2, tales que
A3 + B3 = C3 + 1
2.Un número es super impar si todas sus cifras son impares. Ejemplo: 1395. Haga un programa que lea un número e imprima si el número es un super impar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ciclo while, do while

Publicado por Carlos Castro (37 intervenciones) el 04/06/2017 01:28:29
SUPER IMPAR

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Main()
    Dim numero, num, d As Integer
    Dim sw As Boolean
    Console.Write("Ingrese numero entero:")
    numero = Console.ReadLine
    num = numero
    While numero > 0
        d = numero Mod 10
        If d Mod 2 = 0 Then
            sw = True
        End If
        numero = numero \ 10
    End While
 
    If sw = False Then
        Console.WriteLine("numero super impar--->" & num)
    Else
        Console.WriteLine("numero NO es super impar--->" & num)
    End If
    Console.ReadLine()
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar