ExameIII
Publicado por ANGEL DE JESUS PEREZ (1 intervención) el 06/12/2021 21:32:03
Module problema_320
Sub Main()
Console.Write("Ingrese número : ")
Dim N = Val(Console.ReadLine)
If N > 0 Then
Console.WriteLine(N)
While N <> 1
If (N Mod 2) = 0 Then
N = N \ 2
Else
N = N * 3 + 1
End If
Console.WriteLine(N)
End While
Else
Console.Write("N tiene que ser un entero positivo")
End If
Console.ReadLine()
End Sub
End Module
Sub Main()
Console.Write("Ingrese número : ")
Dim N = Val(Console.ReadLine)
If N > 0 Then
Console.WriteLine(N)
While N <> 1
If (N Mod 2) = 0 Then
N = N \ 2
Else
N = N * 3 + 1
End If
Console.WriteLine(N)
End While
Else
Console.Write("N tiene que ser un entero positivo")
End If
Console.ReadLine()
End Sub
End Module
Valora esta pregunta
0