来一个简单的吧: program Project1;{$APPTYPE CONSOLE}uses SysUtils;var i,j,k:Integer; begin { TODO -oUser -cConsole Main : Insert code here } for i:=1 to 9 do for j:=1 to 9 do for k:=1 to 9 do if(i*i*i+j*j*j+k*k*k=i*100+j*10+k) then writeln(i,' ',j,' ',k); readln; end.
program Project1;{$APPTYPE CONSOLE}uses
SysUtils;var i,j,k:Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
for i:=1 to 9 do
for j:=1 to 9 do
for k:=1 to 9 do
if(i*i*i+j*j*j+k*k*k=i*100+j*10+k) then
writeln(i,' ',j,' ',k);
readln;
end.