numero par impar
Publicado por Misael (41 intervenciones) el 03/05/2016 20:35:00
como puedo modificar este código para que me escribir un programa que lea N números y que luego imprima en pantalla la cantidad de pares e impares
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROGRAM EJER34;
USES CRT;
VAR t,num:INTEGER;
BEGIN
ClrScr;
for t := 1 to 10 do
begin
WRITE (Introduzca un numero entero: '); READLN (num);
IF num = 0 THEN
WRITE ('El numero introducido no es par ni impar, es 0')
ELSE IF ((num mod 2 = 0)) THEN
WRITE ('El numero introducido es par')
ELSE
WRITE ('El numero introducido es impar')
end;
END.Valora esta pregunta
0