Pascal【入门】求出100至999范围内的水仙花数。

题目描述：

所谓水仙花数，就是指各位数字立方之和等于该数的数；a^3称为a的立方，即等于a*a*a的值。例如：因为153=1^3+5^3+3^3，所以153是一个水仙花数。请编程求出100至999范围内的所有水仙花数。

输入：

没有输入。

输出：

若干行，每行一个整数，表示该范围内的所有水仙花数。按从小到大的顺序输出。

代码实现：

var i,j,s,b,g:longint;
begin
      for i:=100 to 999 do
      begin
            g:=i mod 10;//提取各位上的数
            s:=i mod 100 div 10;//提取十位上的数
            b:=i div 100;//提取百位上的数
            if g*g*g+s*s*s+b*b*b=i then writeln(i);//满足条件即水仙花数
      end;
end.