Módulo 3 - Exercício 3 (Resolução)

Resolução com ciclo para:

programa sequencia
    declaracoes
    inteiro x, n, p, max

inicio
    escreva ("\nInsira um número inteiro: ")
    leia (x)
     escreva ("\nInsira o número de valores a gerar: ")
    leia (max)

     para n<-1 ate max passo 1

        se (x mod 2 = 0) entao
            x<-x div 2
        senao
            x<-3*x+1
        fimse
        escreva( "\n", x )
    fimpara
fim