program:cscs;(名字你自己编好了）var i,a,b,c:integer;Beginfor i:=100 to 999begina=i div 10b=i div 10 mod 10c=i div 100if(i=a*a*a+b*b*b+c*c*c)then write (i);end;End.