APROG - 02/02/2012 - Exame Época Normal - Grupo I

ED:
    INTEIRO num,i,j,count=0
ALG I02022012
INICIO
    ESCREVER("Numero:")
    LER(num)
    ENQUANTO(num<1 && num>20)
        ESCREVER("ERRO: Numero Invalid")
        ESCREVER("Numero:")
        LER(num)
    FIMENQUANTO
    PARA i<-1 ATÉ num/2 FAZER
        PARA j<-1 ATÉ 10 FAZER
            SE((i+j)=num) ENTÃO
                ESCREVER(i+"+"+j+"="+num)
                count<-count+1
            FIMSE
        FIMPARA
    FIMPARA
    ESCREVER("EXISTE "+count+" MANEIRAS DISTINTAS")
FIM