Trabajo

1. Escribir un programa en Pascal que detecte si un número

introducido desde le teclado es positivo o negativo.

PROGRAM EJER29;
       USES CRT;
       VARnum:INTEGER;
BEGIN
      ClrScr;
       WRITE ('Introduzca un numero entero: ');        READLN (num);
       IF num > 0 THEN
          WRITE ('El numero es positivo')       ELSE IF num < 0 THEN
          WRITE ('El numero es negativo')
       ELSE
          WRITE ('El numero no es positivo ni negativo, es 0');
END.
2. Escribir unprograma en Pascal que determine si un número

leído desde el teclado es par o impar

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.

3. Escribir un programa enPascal que dado un número del 1 a 7

escriba el correspondiente nombre del día de la semana.
PROGRAM EJER36;
      USES CRT;
       VAR num:INTEGER;
BEGIN    ClrScr;
    WRITE ('Escriba un numero para ver con que dia corresponde: ');
    READLN (num);
    IF num=1 THEN
    WRITE ('Lunes');
    IF num=2 THEN    WRITE ('Martes');
    IF num=3 THEN
    WRITE ('Miercoles');
    IF num=4 THEN
    WRITE ('Jueves');
    IF num=5 THEN
    WRITE ('Viernes');
    IF num=6 THEN    WRITE ('Sabado');
    IF num=7 THEN
    WRITE ('Domingo');
END.
4. Escribir un programa en Pascal que visualice en pantalla los númerospares entre 1 y...