La siguiente se llama conjetura de ULAM en honor del matematico S.Ulam
- Comience con cualquier entero positivo
- Si es par, dividalo entre 2; si es impar, multipliquelo por 3 y agreguele 1.
- Obtenga enteros sucesivamente repitiendo el proceso
Construya un diagrama de flujo y su codigo correspondiente que lea un numero Entero positivo y obtenga e imprima la sucesion de ULAM (tambien conocido como Conjetura de Collatz)
Datos:
N, es una variable de tipo entero, que representa el número que ingresa.
Diagrama de Flujo
Codigo Fuente Visual Basic
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