LD1-4)Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que:

a) Não terminem em zero;
b) Se o dígito à direita for removido, o número restante seja divisor do número original. (ex: 39 (3 é divisor de 39).

Algoritmo "números inteiros e positivos"

Var
    n1,n2,i,j: inteiro
Inicio
    Escreva("Digite os dois numeros: ")
    Leia(n1)
    Leia(n2)
    Se(n2>n1)Entao
    Para i de n1 ate n2 faca
        Se(i>=10)Entao
        j<-i
            Se (i MOD 10 <> 0) Entao
                i<-(i DIV 10)
                Se ((j MOD i)=0)Entao
                    Escreval(j)
                Fimse
            Fimse
        Fimse
    Fimpara
    Senao
        Se(n1>n2)Entao
            Para i de n2 ate n1 faca
                Se(i>=10)Entao
                j<-i
                    Se (i MOD 10 <> 0) Entao
                        i<-(i DIV 10)
                        Se ((j MOD i)=0)Entao
                            Escreval(j)
                        Fimse
                    Fimse
                Fimse
            Fimpara
        Senao
        Escreva("Os números são iguais! (nao possuem intervalo)")
        Fimse
    Fimse
Fimalgoritmo