algoritimo

Algoritmo ParesAte5000

Variáveis

   Inteiro: I

Início

   Para I <- 1="" 5000="" a="" at="" fa="" p="">

      Início

         Se (Resto(I, 2) = 0) Então

            Escreva(I)

      Fim

Fim

Algoritmo LeituraComFlag0

Variáveis

   Inteiro: N, Cont

Início

   Cont <- 0="" p="">

   Escreva(“Informe um número ou 0 (zero) para sair: ”)

   Leia(N)

   Enquanto(N <> 0) Faça

      Início

         Cont <- 1="" cont="" p="">

         Escreva(“Informe um número ou 0 (zero) para sair: ”)

         Leia(N)

      Fim

Fim