shuixi~1.bak

来自「本人 菜鸟+学生 ！ 老鸟指教的说 这些是自己写的一写PAS」· BAK 代码 · 共 13 行

program shui_xian_hua(chuantong);
     var a,b,c,n,m:integer;
 begin
  for a:=1 to 9 do
  for b:=0 to 9 do
  for c:=0 to 9 do
   begin
   n:=a*100+b*10+c;
   m:=a*a*a+b*b*b+c*c*c;
   if n=m then write(n,' ');
   end;
  readln
 end.