Algoritmos e LD1 exercício 4

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).


Resposta:

algoritmo "4"

var

n1,n2, p,n:inteiro

inicio

      escreva("Digite o 1º numero: ")

      leia(n1)

      escreva("Digite o 2º numero: ")

      leia(n2)

       n<-n1

       repita

        se((n mod 10) <> 0) entao

         p<-n div 10

          se (p <> 0) entao

           se ((n mod p)=0) entao

            escreval (n)

           fimse

          fimse

        fimse

       n<-n+1

      ate(n>n2)

fimalgoritmo