create or replace function cump_20121001(n number)
return number
as
s number:=1;
m number;
e exception;
sum1 number;
begin
sum1:=0;
if mod(n,2)=1 then
m:=(n-1)/2+1;
else
m:=n/2;
end if;
for a in 1..m loop
sum1:=sum1+s;
s:=s+2;
if sum1>200 then
raise e;
end if;
end loop;
return sum1;
exception
when e then
return 0;
end;
/
return number
as
s number:=1;
m number;
e exception;
sum1 number;
begin
sum1:=0;
if mod(n,2)=1 then
m:=(n-1)/2+1;
else
m:=n/2;
end if;
for a in 1..m loop
sum1:=sum1+s;
s:=s+2;
if sum1>200 then
raise e;
end if;
end loop;
return sum1;
exception
when e then
return 0;
end;
/