APROG - 08/02/2013 - Exame Época Recurso - Grupo I

ED:
    INTEIRO num,countnum,newnum,countnewnum,tempnum,digito

ALG I08022013
DEFINIR BOOLEANO repetido(INTEIRO num,INTEIRO s)
    ENQUANTO (num<>0) FAZER
        digito<-num MOD 10
        SE (digito=s) ENTÃO
            RETORNAR VERDADEIRO
        num<-num DIV 10
    FIMENQUANTO
    RETORNAR FALSO
FIMDEFENIR
INICIO
    ESCREVER("Numero:")
    LER(num)
    ENQUANTO(num>0) FAZER
        tempnum<-num
        newnum<-0
        countnewnum<-0
        countnum<-0
        ENQUANTO (tempnum<>0) FAZER
            countnum<-countnum+1
            digito<-tempnum MOD 10
            SE (digito MOD 2!=0 E !repetido(newnum,digito)) ENTÃO
                newnum<-digito*10^countnewnum+newnum
                countnewnum<-countnewnum+1
            FIMSE
            tempnum<-tempnum DIV 10
        FIMENQUANTO
        SE (newnum=0) ENTÃO
            ESCREVER("ERRO: Numero Invalido")
        SENÃO
            ESCREVER(num+"->"+newnum)
        FIMSE
        ESCREVER("Numero:")
        LER(num)
    FIMENQUANTO
FIM