b number;
begin
for x in 1..13 loop
b:=x/3;
if instr(b,'.')>0 --判断b是否是整数。若不是整数,则说明x不能被3整除。
then dbms_output.put_line(x);
end if;end loop;
end;
if instr(b,'.')>0 --判断b是否是整数。若不是整数,则说明x不能被3整除。
then dbms_output.put_line(x);
end if;转载于:https://www.cnblogs.com/shijiuka/articles/1612637.html