liczby pierwsze.txt

(0 KB) Pobierz

DECLARE
v_koniec CONSTANT INTEGER := &koniec;
licznik INTEGER := 1;
licznik_p INTEGER :=1;
BEGIN
DBMS_OUTPUT.PUT_LINE('Liczby pierwsze do ' || v_koniec || ': ');

FOR licznik IN 1 .. v_koniec LOOP
  licznik_p := 1;
  FOR licznik_p IN 1 .. licznik LOOP

    IF (licznik = licznik_p) THEN
    DBMS_OUTPUT.PUT_LINE(licznik);
    EXIT;
    END IF;
    
    IF(licznik mod licznik_p = 0 AND licznik_p > 1) THEN
    EXIT;
    END IF;
  
  END LOOP;
END LOOP;
END;

liczby pierwsze.txt

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: