Ejercicio 36,37,38,39,40,41,42

--Programa que nos dice el numero de veces que un numero puede ser dividido por 2



















--Programa que lee una frase  y nos dice si es palindromo

SET SERVEROUTPUT ON;
ACCEPT FRASE PROMPT 'INTRODUCE FRASE O PALABRA';
   DECLARE
            FRA VARCHAR2 (30):='&FRASE';
            ES_PALINDROMO BOOLEAN:=TRUE;
            I NUMBER(2);
     BEGIN
            I:=1;

            WHILE I<=LENGTH(FRA)/2    AND ES_PALINDROMO LOOP
                    IF SUBSTR(FRA,I,1)!=SUBSTR(FRA,LENGTH(FRA)-I+1,1) THEN
                                ES_PALINDROMO:=FALSE;
                    END IF;
                    I:=I+1;
            END LOOP;

            IF ES_PALINDROMO THEN

                DBMS_OUTPUT.PUT_LINE('LA PALABRA'||FRA||'ES PALIDRONA');

            ELSE
                 DBMS_OUTPUT.PUT_LINE('NO ES PALINDROMO');

           END IF;

    END;
/
--CON FRASES


SET SERVEROUTPUT ON;
ACCEPT FRASE PROMPT 'INTRODUCE FRASE O PALABRA';
   DECLARE
            FRA VARCHAR2 (30):='&FRASE';
            ES_PALINDROMO BOOLEAN:=TRUE;
            I NUMBER(2);
          AUX VARCHAR(100):=' ';
     BEGIN
            I:=1;

               FOR I IN 1..LENGTH (FRA) LOOP
                       IF SUBSTR (FRA,I,1)!=' ' THEN
                    AUX:=AUX||SUBSTR(FRA,I,1);
                       END IF;

              END LOOP;




            WHILE I<=LENGTH(AUX)/2    AND ES_PALINDROMO LOOP
                    IF SUBSTR(AUX,I,1)!=SUBSTR(AUX,LENGTH(AUX)-I+1,1) THEN
                                ES_PALINDROMO:=FALSE;
                    END IF;
                    I:=I+1;
            END LOOP;

            IF ES_PALINDROMO THEN

                DBMS_OUTPUT.PUT_LINE('LA PALABRA'||FRA||'ES PALIDRONA');

            ELSE
                 DBMS_OUTPUT.PUT_LINE('NO ES PALINDROMO');

           END IF;

    END;
/

--PROGRAMA QUE LEE UN NUMERO  Y DETERMINA SI  ES PRIMO



PUBLIC static BOOLEAN esPrimo(int comprobarNumero) {
        double raiz = Math.SQRT(comprobarNumero);
        FOR (int i = 2; i <= raiz; i++) {
            IF (comprobarNumero % i == 0) {
                RETURN FALSE;
            }
        }
        RETURN TRUE;







--Programa que escribre todos los multiplos de 5 que hay entre 1 y 400












--Programra que lee una frase  y escribe en pantalla el numero de veces que aparece la primera letra









--Programa que cuenta el numero de palabras que hay en una frase










--Programa que lee una palabra y escribe esa paalabra tantas veces como letras tenga







--Programa que lee una frase y escribe cada una de las palabras tantas veces como letras tiene cada una de ellas