Advertisement
dsvfcgsdvfsdewga

Untitled

Dec 15th, 2021
1,235
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --- 1) [15 pto] Escribir su nombre y rut por pantalla
  2. SET SERVEROUTPUT ON;
  3. CREATE OR REPLACE PROCEDURE NombreRut (nombreJC IN VARCHAR2, rutJC IN VARCHAR2)
  4. IS
  5. BEGIN
  6.     DBMS_OUTPUT.PUT_LINE('Mi nombre es: ' || nombre' y mi rut es: ' || rut);
  7. END;
  8. EXECUTE NombreRut('Jonathan','21.066.738-5');
  9. --- 2)
  10. DECLARE
  11. a NUMBER:=0;
  12. b NUMBER:=0;
  13. m NUMBER:=0;
  14. BEGIN
  15. FOR i IN 2..20 LOOP
  16. m:=i;
  17. FOR j IN 2..i-1 LOOP
  18. b:=b+1;
  19. si MOD (i, j) <> 0 entonces
  20. a:=a+1;
  21. END IF;
  22. END LOOP;
  23. IF a=b THEN
  24. dbms_output.put_line ('th' || (b + 1) || 'el número primo es:' || m);
  25. END IF ;
  26. a:=0;
  27. b:=0;
  28. END LOOP;
  29. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement