CSDN学习社区

1.输出100以内的所有素数

DECLARE
  Z INT;
BEGIN
  FOR X IN 2 .. 100 LOOP
    IF X = 2 THEN
      DBMS_OUTPUT.PUT_LINE(X);
    ELSIF X > 2 THEN
      Z := 0;
      FOR T IN 2 .. X - 1 LOOP
        IF MOD(X, T) = 0 THEN
          Z := Z + 1;
        END IF;
      END LOOP;
      IF Z = 0 THEN
        DBMS_OUTPUT.PUT_LINE(X);
      END IF;
    END IF;
  END LOOP;
END;