identificar numeros pares

[lucas de paula 0]

Ler 4 números inteiros e calcular a soma dos que forem par.

 

eu cheguei ate aqui mas da erro nao consigo continuar, alguem pode ajudar? abraço

 

var
n,s,x:inteiro
inicio
n:=0
 	s:=0
 	      Repita
          	Escreva("Digite um número:")
             	Leia(x)
                	Se x mod 2 =0 entao
                     	s:=s+x
                          	n:=n+1
                              	repita Ate
                                 n=4
                                 Escreval(s)
                                    fimpara
                                    fimse
                                          fimalgoritmo

[Mário Monteiro 179]

o enunciado manda ler 4 numeros e não ler numeros até ter 4 pares

 

então

utilize um laço para e não um repita

[Daniel Aparecido Diniz 0]

algoritmo "calculaPares"

// Função : Ler 4 números e somar os números que forem par

// Autor : Daniel

// Data : 15/12/2010

// Seção de Declarações

var

I,vValor, vPar:inteiro

inicio

I<- 1

 

para I de 1 ate 4 passo 1 faca

escreval("Digite o ",I," º valor: ")

leia(vValor)

 

se vValor mod 2 = 0 entao

vPar <- vPar + vValor

fimse

 

fimpara

limpatela

escreva("A soma de valores par eh: ",vPar)

 

 

 

fimalgoritmo