[quote]...
啥叫水仙花数??
想想...
貌似是各位的数3次放等于本身?
1--999?
var
i:integer;
begin
for i=1 to 999 do
if i =(i mod 100)^3+(i mod 10 div 10)^3+(i div 10)^3 then  write(i);
end.
[/quote]
老兄,在pascal中不能用乘方的.

所谓水仙花数就是   a^3+b^3+c^3=abc
也就是百位数的3次+十位数的3次+个位数的3次=他本身
晓得不````

实在是太简单了！
begin
     for i:=1 to 9 do
         for j:=1 to 9 do
             for k:=1 to 9 do
             begin
                  if i*i*i+j*j*j+k*k*k=i*100+j*10+k then
                  write(i,j,k);
                  end;
end.
             
[em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9][em9]

var
 a,b,c:0..9;
begin
 for a:=1 to 9 do
  for b:=0 to 9 do
   for c:=0 to 9 do
    if 100*a+10*b+c=a*a*a+b*b*b+c*c*c
     then writeln(a,b,c);
 readln;
end.

临时写的
应该没错！

program  asd(input,output);
                   var      i,a,b,c,k:integer;
                 begin
                   for i:=100 to  999 do
                 begin
                   a:=i div 100;
                   b:=i div 10-10*a;
                  k:=a*a*a+b*b*b+c*c*c;
                 if  k= i then   writeln(i);
                 end;   
                end.

program shuixianhua(input,ourput);
var bai,shi,ge:integer;
  begin
    for bai:=1 to 9 do   }
      for shi:=0 to 9 do }  定义“个”、“十”、“百”。
        for ge:=0 to 9 do}
    if ge*ge*ge+shi*shi*shi+bai*bai*bai=ge+shi*10+bai*100{给定义进行判断} 
    then writeln(ge+shi*10+bai*100);{输出}
  end.