Caso os números formem um intervalo crescente, a media dos números do intervalo, incluindo os números digitados;

=============================================================
Exemplos

 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
==========================================================================================================================
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
=============================================================v