APROG - 05/09/2013 - Exame Época Especial - Grupo I

ED:
    INTEIRO num,countnum,tempnum,newnum,qtd,digito
ALG I05092013
DEFINIR INTEIRO LENGTH(INTEIRO num)
    count<-0
    ENQUANTO (num<>0) FAZER
        tempnum<-tempnum DIV 10
        count<-count+1
    FIMENQUANTO
    RETORNAR count
FIMDEFENIR
INICIO
    ESCREVER("Numero:")
    LER(num)
    ENQUANTO (num<999) FAZER
        ESCREVER("ERRO: Numero Invalido")
        ESCREVER("Numero:")
        LER(num)
    FIMENQUANTO
    countnum<-length(num)
    ESCREVER("Quantidade(1-"+contnum+")")
    LER(qtd)
    ENQUANTO (qtd<1 E qrd>contnum) FAZER
        ESCREVER("ERRO: Quantidade Invalida")
        ESCREVER("Quantidade(1-"+contnum+")")
        LER(qtd)
    FIMENQAUNTO
    newnum<-0
    tempnum<-num
    PARA i<-1 ATÉ qtd FAZER
        digito<-tempnum MOD 10
        newnum<-newnum*10+digito
        tempnum<-tempnum DIV 10
    FIMPARA
    newnum<-newnum*10^(contnum-qtd)+tempnum
    ESCREVER(num+"->"+newnum)
FIM