Contar+Pares+e+Impares

=__**Contar Pares e Impares**__=

Programa que lee una secuencia de numeros enteros y cuenta cuántos de ellos son pares y cuántos son impares.

El programa finaliza cuando el usuario dice que no desea introducir más datos

code format="pascal" PROGRAM Par_Imp ; VAR iNumero, iPar, iImpar : Integer ;        { Contadores de nº pares e impares } cResp : Char ;         { respuesta a la pregunta de continuar o no } BEGIN iPar  := 0 ;        { Inicializaci¢n del contador de números pares } iImpar := 0 ;       { Inicializaci¢n del contador de números pares }

WriteLn ('Programa que cuenta números pares e impares') ; Writeln ;

Write ('Quieres introducir algún número (S/N): ') ; ReadLn (cResp) ;

WHILE (cResp = 'S') OR (cResp = 's') DO      BEGIN Write ('Escribe un número:' ) ; ReadLn (iNumero) ;

IF iNumero MOD 2 = 0 THEN iPar := iPar + 1                      { o bien:  Inc (iPar) } ELSE iImpar := iImpar + 1 ;              { o bien:  Inc (iImpar) }

{ "fase de preparación para la siguiente iteración" } Write ('Quieres introducir otro número (S/N): ') ; ReadLn (cResp) ; END ;

WriteLn ('Has introducido ', iPar, ' números pares') ; WriteLn ('Has introducido ', iImpar, ' números impares') END. { FIN DEL PROGRAMA PAR_IMP.PAS } code