Subscribe & Get All Fresher Jobs Information & Study Materials PDF and Projects- Free Download
DBMS Study Notes PDF
DBMS Tech Interview Q & A PDF
DBMS Latest Projects
DBMS Projects & All Latest Projects PDF- Free Download
PL SQL Program For adam or not.
declare n number(3); t1 number(3):=0; t2 number(3); s number(3):=0; revn number(3):=0; t number(3); begin n:=&n; t:=n; while(t>0) loop revn:=(revn*10)+(t mod 10); t:=trunc(t/10); end loop; dbms_output.put_line('Reversal of the number is ' ||revn); t1:=n*n; t2:=revn*revn; t:=t2; while(t>0) loop s:=(s*10)+(t mod 10); t:=trunc(t/10); end loop; if(s=t1) then dbms_output.put_line('The Given Number ' || n || ' is an Adam Number'); else dbms_output.put_line('The Given Number ' || n || ' is not an Adam Number'); end if; end;
