APROG - 30/01/2014 - Exame Época Normal - Grupo I

ED:
    INTEIRO num,num1,c1,num2,c2,digito
ALG I30012014
INICIO
    ESCREVER("Numero:")
    LER(num)
    ENQUANTO (num>0) FAZER
        num1<-0
        c1<-0
        num2<-0
        c2<-0
        ENQUANTO (num<>0) FAZER
            digito<-num MOD 10
            SE (digito MOD 2=0) ENTÃO
                num1<-digito^c1+num1
                c1<-c1+1
            SENÃO
                num2<-digito^c2+num1
                c2<-c2+1
            FIMSE
            num<-num DIV 10
        FIMENQUANTO
        SE (num1=0 E num2<>0) ENTÃO
            ESCREVER("NUMERO SÒ COM ALGARISMOS ÍMPARES")
            ESCREVER("ALGARISMOS ÍMPARES: "+num2)
        FIMSE
        SE (num1<>0 E num2=0) ENTÃO
            ESCREVER("NUMERO SÒ COM ALGARISMOS PARES")
            ESCREVER("ALGARISMOS PARES: "+num1)
        FIMSE
        SE (num1<>0 E num2<>0) ENTÃO
            ESCREVER("ALGARISMOS PARES: "+num1)
            ESCREVER("ALGARISMOS ÍMPARES: "+num2)
        FIMSE
        ESCREVER("Numero:")
        LER(num)
    FIMENQUANTO
FIM