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