素数除了1和它本身以外不再有其他因数
declare
flag number :=0;--定义一个开关flag为0是素数,否则不是
i number:=2;
j number:=2;
sushu number:=0;
begin
for i in 2..100 loop
flag:=0;--循环开始flag恢复默认
for j in 2..i-1 loop
if(i mod j=0) then flag:= 1; --能被除了1和它本身整除不是素数 flag=1
end if;
end loop;
if(flag =0) then sushu:=i;
dbms_output.put_line(sushu);
end if;
end loop;
end;
/
set serveroutput on
/
使用set serveroutput on 命令设置环境变量serveroutput为打开状态,从而使得pl/sql程序能够在SQL/plus中输出结果