資料庫:水仙花數

彡影分身彡發表於2015-03-25
declare
i integer
a integer
b integer
c integer
begin
--i:=&i;
for i in 100..999 loop
a := trunc(i/100,0);
b := trunc(i mod 100)/10,0);
c := (i mod 100) mod 10;
if(a*a*a+b*b*b+c*c*c=i)then
--dbms_output.put_line(a ||'   '||'   '||c);
dbms_output.put_line('=='||i||'==');
end if;
end loop;
end;

相關文章