Ok muchachos hoy les dejare un ejercicio utilizando los operadores aritméticos, para ser mas exacto el MOD (Modulo o Residuo) en el nos ayudara a determinar cuando un numero es Par o Impar, para ello debemos tener en cuenta Matemáticamente que un Numero cuyo residuo sea 0 es PAR, Veamos el Ejemplo y Practicar....!!!
Program ParImpar;
USES WinCrt;
VAR X:INTEGER;
BEGIN
ClrScr;
WRITE ('Introduzca un numero entero: '); READLN (X);
IF X = 0 THEN
WRITE ('El numero introducido no es par ni impar, es 0')
ELSE IF ((X mod 2 = 0)) THEN
WRITE ('El numero introducido es par')
ELSE
WRITE ('El numero introducido es impar')
END.
0 Comentarios