Ejercicios PL/SQL tanda3

-- Tanda 3 ejercicio 1 Programa que escribe todos los numeros pares desde el 2 hasta el 100










--Tanda 3 Ejercicio2 Programa que escribe todos los numeros pares desde el uno que se lee de la -- consola hasta el 1000

ACCEPT NUMERO_PROMPT 'DAME UN NUMERO'
DECLARE
NUM NUMBER(4)=№

  BEGIN
     IF NUM MOD >!=0 THEN
      NUM=NUM+1;

    END IF








-- Tanda3 Ejercicio 3  Programa que escribe los numeros pares a partir del que se lee de la --consola hasta el 1000 en caso de que el numero leido sea par o todos los numeros impares
-- hasta  el 1111 en el caso de que sea impaR






















--PROGRAMA QUE LEE una frase y cuenta cuantos caracteres tiene

ACCEPT FRASE PROMPT 'ESCRIBE UNA FRASE';
  DECLARE
      FRA VARCHAR(100):=&FRASE;
     CONT NUMBER(3):=0;
     I NUMBER(3):=1;
  BEGIN
      FOR (I IN 1 .. LENGTH (FRA) LOOP            //WHILE  I<=LENGTH(FRA) LOOP

            IF SUBSTR(FRA,I,1)!='_' THEN
                      CONT:=CONT+1;
            END IF;
    END LOOP;
 DBMS_OUTPUT.PUT_LINE ('LA FRASE TIENE'||CONT||' CARACTERES');
END;
/