水仙花数为什么不对？
pascal吧
全部回复
仅看楼主
level 9
千山暮雪无情
楼主
var
x,y,d,z:integer;
begin
readln(x);
for x:=100 to 999 do
begin
y:=x div 10;
d:=x div 10 mod 10;
z:=x mod 10;
if x:=y*y*y+d*d*d+z*z*z then writeln(x);
end;
end.
2015年05月30日 13点05分
1
level 7
油海盈天清心长X
第十行编译出错，明显的严重语法错误。
2015年05月31日 01点05分
2
level 1
Draco💥
"x:="改成"x="。
顺便说一下：前面y:=x div 100。
2015年06月10日 06点06分
3
level 9
千山暮雪无情
楼主
xiexie
2015年06月14日 04点06分
4
1
