Lista 03a - DCC/UFMG

28) Escreva um algoritmo em PORTUGOL que leia 200 números inteiros e imprimaquantos são pares e quantos são ímpares.algoritmo L3P028;varinteiro: C, NPAR, NIMPAR;real: VALOR;inícioNPAR ← 0;NIMPAR ← 0;para C de 1 até 200 façaleia(VALOR);se ( C mod 2 = 0 ) entãoNPAR ← NPAR + 1;senãoNIMPAR ← NIMPAR + 1;fim-sefim-paraimprima("A quantidade de números pares digitados: " ,NPAR );imprima("A quantidade de números ímpares digitados: ",NIMPAR);fimprogram l3p028;varC, NPAR, NIMPAR, VALOR: integer;beginNPAR := 0;NIMPAR := 0;for C := 1 to 200 dobeginwrite('Digite um numero: ');readLn(VALOR);if ( VALOR mod 2 = 0 ) thenNPAR := NPAR + 1elseNIMPAR := NIMPAR + 1;end;writeLn('A quantidade de numeros pares digitados: ' ,NPAR );writeLn('A quantidade de numeros impares digitados: ',NIMPAR);end.NPAR = 0;NIMPAR = 0;for C = 1 : 200VALOR = input('Digite um numero: ');if ( mod( VALOR , 2 ) == 0 )NPAR = NPAR + 1;elseNIMPAR = NIMPAR + 1;endendfprintf(1,'A quantidade de numeros pares digitados: %d\n',NPAR );fprintf(1,'A quantidade de numeros impares digitados: %d\n',NIMPAR);UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 28