APROG - 21/01/2013 - Exame Época Normal - Grupo I

ED:
        INTEIRO num,countnum,newnum,countnewnum,tempnum,digito,lastdigito
ALG I21012013
INICIO
    ESCREVER("Numero:")
    LER(num)
    ENQUANTO (num<=0) FAZER
        ESCREVER("ERRO: Numero Invalido")
        ESCREVER("Numero:")
        LER(num)
    FIMENQUANTO
    lastdigito<-num MOD 10
    tempnum<-num DIV 10
    countnum<-1
    newnum<-lastdigito
    countnewnum<-1
    ENQUANTO (tempnum<>0) FAZER
        digito<-tempnum MOD 10
        SE (digito!=lastdigito) ENTÃO
            newnum<-digito*10^countnewnum+newnum
            countnewnum<-countnewnum+1
        FIMSE
        lastdigito<-digito
        tempnum<-tempnum DIV 10
        countnum<-countnum+1
    FIMENQUANTO
    ESCREVER(num+"->"+newnum)
    SE (countnum=countnewnum) ENTÃO
        ESCREVER("(sem algarismos consecutivamente repetidos)")
    FIMSE
FIM