orcale求1~100之间的偶数和

使用set serveroutput on 命令设置环境变量serveroutput为打开状态，从而使得pl/sql程序能够在SQL/plus中输出结果

for循环

declare
  i number:=1;
  s number:=0;
begin
  for i in 1..100
  loop
    if (i mod 2=0) then s:=s+i;
    end if;
  end loop;
  dbms_output.put_line(s);
end;
/
set serveroutput on
/

while循环

declare
  i number:=1;
  s number:=0;
begin
  while i<=100
  loop
    if (i mod 2=0) then s:=s+i;
    end if;
    i:=i+1;
  end loop;
  dbms_output.put_line(s);
end;
/
set serveroutput on
/