pascal的问题，不会-。--。-题目描述打印出小于N所有的“水仙花数”.所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1的三次

Question

pascal的问题，不会- 。- - 。-
题目描述
打印出小于N所有的“水仙花数”.所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。
输入
正整数N
输出
从小到大输出所有水仙花数.每行输出一个.
样例输入
154
样例输出
153

Answer 1

var n,a,b,c,i:integer;
begin
readln(n);
if n<1000 then
for i:=100 to n do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
if a*a*a+b*b*b+c*c*c=i then writeln(i);
end;
end.