Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --- 1) [15 pto] Escribir su nombre y rut por pantalla
- SET SERVEROUTPUT ON;
- CREATE OR REPLACE PROCEDURE NombreRut (nombreJC IN VARCHAR2, rutJC IN VARCHAR2)
- IS
- BEGIN
- DBMS_OUTPUT.PUT_LINE('Mi nombre es: ' || nombre' y mi rut es: ' || rut);
- END;
- EXECUTE NombreRut('Jonathan','21.066.738-5');
- --- 2)
- DECLARE
- a NUMBER:=0;
- b NUMBER:=0;
- m NUMBER:=0;
- BEGIN
- FOR i IN 2..20 LOOP
- m:=i;
- FOR j IN 2..i-1 LOOP
- b:=b+1;
- si MOD (i, j) <> 0 entonces
- a:=a+1;
- END IF;
- END LOOP;
- IF a=b THEN
- dbms_output.put_line ('th' || (b + 1) || 'el número primo es:' || m);
- END IF ;
- a:=0;
- b:=0;
- END LOOP;
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement