Question

3) Criar um algoritmo que leia 50 valores e teste se são pares. Ao final imprimir quantos valores pares foram encontrados.

Answer 1

algoritmo "semnome"
// Função :
// Autor :
// Data : 19/12/2016
// Seção de Declarações 
var Cont,a,contpar : Inteiro
inicio 
Cont <- 0 
contpar <- 0   
      Enquanto (Cont <> 50) faca     
cont <- cont + 1     
escreval("Digite um número inteiro : ")     
leia(a)             
         Se(a%2 = 0) entao             
         contpar <- contpar + 1             
         Fimse     
Fimenquanto
escreval("Voce digitou ",contpar, " números pares")
      fimalgoritmo