Pascal/Turbo Pascal - Cantidad de Números

   
Vista:
Imágen de perfil de Misael

Cantidad de Números

Publicado por Misael (34 intervenciones) el 08/04/2015 19:44:24
Buen día a Todos, quisiera que me ayudaran por-favor...
tengo que hacer un programa que me diga que números son par o impar de 10 números ingresados...
y que me imprima cuales son par e impares... Realice uno pero solo es de un solo numero ingresado... espero me pueda ayudar...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PROGRAM EJER34;
        USES CRT;
 
        VAR num:INTEGER;
 
BEGIN
        ClrScr;
 
        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.
par
otro ejemplo solo que yo eligo los valores a ingresar 10 valores en números
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

Cantidad de Números

Publicado por Juan (10 intervenciones) el 08/04/2015 22:08:32
Buenas Misael

Yo te diría que investigaras el uso de los bucles FOR y después nos cuentas

Un saludo
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

Cantidad de Números

Publicado por ramon (2072 intervenciones) el 08/04/2015 22:09:53
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{Mira lo corregido}
 
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 respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar