Exemplo 8

=============================================================
Exemplo 8:

 Elabore um algoritmo que receba dois números inteiros positivos. Calcule e mostre:
 Caso os números formem um intervalo crescente, a media dos números do intervalo, incluindo os números digitados;
Caso os números formem um intervalo decrescente, a quantidade de números pares, incluindo os números digitados;
Se os números forem iguais, mostrar uma mensagem.
=============================================================

// Seção de Declarações

var

pares,numero1,numero2,contador:inteiro
soma:inteiro

// A variável PARES vai armazenar a quantidade de números pares quando o intervalo for decrescente.

inicio

escreva("Escreva um valor: ")
leia(numero1)
escreva("Escreva outro valor: ")
leia(numero2)
soma<-0
pares<-0

     Se(numero1=numero2)entao
          escreval("Os dois números são iguais.")
     senao

// Ordem crescente

          se(numero1

// Calcula a média
                               
               para contador de numero1 ate numero2 faca    
                  soma<-soma+contador                   
               fimpara 
                                  
               escreval("Intervalo Crescente.")
               escreval("Média : ",soma/(numero2-numero1+1))

          fimse
       

// Ordem decrescente

          se(numero1>numero2)entao

               para contador de numero2 ate numero1 faca

//Conta a quantidade de números pares

                   se(contador mod 2 = 0)entao         
                     pares<-pares+1                     
                   fimse

               fimpara
             
               escreval("Intervalo Descrescente.")
               escreval("O intervalo possui ",pares," números pares.")
          fimse

     fimse

fimalgoritmo
=============================================================