Leia m e n e calcule a soma de todos os números , ímpares entre m e n

//Leia m e n e calcule a soma de todos os números , ímpares entre m e n
.
..................usando o enquanto..

Algoritmo "Soma de numeros impares"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ

Var
   // Seção de Declarações das variáveis
 m,n,soma:inteiro
 d:real

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   Escreval("Digite o primeiro valor:" )
   Leia (m)
   Escreval("Digite o segundo valor: ")
   Leia(n)
   enquanto m<=n faca
      d:= m mod 2
      se d<>0 entao
         soma:=soma+m
      fimse
      m:=m+1
   fimenquanto
   escreval(" A soma dos numeros impares é: ",soma)

Fimalgoritmo

.............mesma questão usando o para.. até....

//Leia m e n e calcule a soma de todos os números ,
//ímpares entre m e n

Algoritmo "Soma de numeros impares"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ

Var
   // Seção de Declarações das variáveis
 m,n,i,soma:inteiro
 d:real

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   Escreval("Digite o primeiro valor:" )
   Leia (m)
   Escreval("Digite o segundo valor: ")
   Leia(n)
   para i:= m ate n faca
      d:= i mod 2
      se d<>0 entao
         soma:=soma+i
      fimse
   fimpara
   escreval(" A soma dos numeros impares é: ",soma)

Fimalgoritmo

................mesma questão utilizando o repita... até...

Algoritmo "Soma de numeros impares"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ

Var
   // Seção de Declarações das variáveis
 m,n,i,soma:inteiro
 d:real

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   Escreval("Digite o primeiro valor:" )
   Leia (m)
   Escreval("Digite o segundo valor: ")
   Leia(n)
   repita
      d:= m mod 2
      se d<>0 entao
         soma:=soma+m
      fimse
      m:=m+1
   ate m=n
   escreval(" A soma dos numeros impares é: ",soma)

Fimalgoritmo