Soma Impar

var

X, N, Y, SOMA_IMPAR, CONT :INTEIRO

inicio

X :=0

N :=0

Y :=0

CONT :=1

SOMA_IMPAR :=0

// perfumaria

escreval(" ********************************************************** ")

escreval(" PROJETO SOMA IMPAR ENTRE DOIS NUMEROS INTEIROS X e Y ")

escreval(" ********************************************************** ")

escreval()

escreval()

escreva("Informe o Valor de N...: ")

leia ( N )

escreval()

enquanto ( CONT <= N ) faca

escreval()

escreva("Informe o",CONT, "º Valor de X...: ")

leia ( X )

escreva("Informe o",CONT, "º Valor de Y...: ")

leia ( Y )

escreval()

se ( X > Y ) entao

escreval("O valor de X não pode ser maior que Y. Informe novos valores de X.")

CONT := CONT - 1

fimse

// verifica se o primeiro numero é impar

// se for, incrementa o X, e joga a mensagem na tela

// caso contrario, entre no loop

se ( X % 2 <> 0 ) entao

X := X + 1

fimse

enquanto ( X < Y ) faca

se ( X % 2 <> 0 ) entao

SOMA_IMPAR := ( SOMA_IMPAR + X )

fimse

X := X + 1

fimenquanto

cont := cont + 1

escreval("A soma dos impares eh...: ",SOMA_IMPAR)

SOMA_IMPAR := 0

fimenquanto

// Seção de Comandos

fimalgoritmo