APROG - 08/09/2011 - Exame Época Especial - Grupo I

ED:
    INTEIRO: num, digito, count, countmaior, lastdigito
ALG I08092011
INICIO
    ESCREVER ("Numero:")
    LER(num)
    ENQUANTO (num<0) FAZER
        ESCREVER("ERROR: Numero Invalido")
        ESCREVER ("Numero:")
        LER(num)
    FIMENQUANTO
    lastdigito<-num MOD 10
    count<-1
    countmaior<-0
    num<-num DIV 10
    ENQUANTO (num<>0) FAZER
        digito<-num MOD 10
        SE (digito<lastdigito) ENTAO
            count<-count+1
        SENAO
            SE (count>countmaior) ENTAO
                countmaior<-count
            FIMSE
            count<-1
        FIMSE
        lastdigito<-digito
        num<-num DIV 10
    FIMENQUANTO
    SE (countmaior=0) ENTAO
        ESCREVER ("NÃO EXISTE SEQ. CRESCENTES")
    SENAO
        ESCREVER ("O COMPRIMENTO DO MAIOR SEGMENTO CRESCENTE É"+countmaior)
    FIMSE
FIM