Pascal/Turbo Pascal - numero par impar

   
Vista:
Imágen de perfil de Misael

numero par impar

Publicado por Misael (34 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

numero par impar

Publicado por David (144 intervenciones) el 03/05/2016 22:31:11
Te propongo esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
PROGRAM EJER34;
 
USES CRT;
 
CONST
  CANTIDAD = 10;
 
 
VAR i, t,num:INTEGER;
    PAR,IMPAR : INTEGER;
 
BEGIN
par :=0;
impar:=0;
ClrScr;
for t := 1 to CANTIDAD 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
par := par +1
ELSE
impar:=
impar+1;
end;
writeln('Hay ',par,' n£meros pares y ',impar,' n£meros impares');
readln;
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar