主题：初学Delphi,请教高手们一个小程序段.
密码错误
[专家分：0] 发布于 2006-10-15 20:41:00
我想编一段程序,实现以下功能:
在100~~999(即三位数)中,找出"个位数的平方+十位数的平方+百位数的平方=这个数本身"的数,并标出它们的个数.
还望各位高手大侠指教,在下多谢了.
回复列表 （共4个回复）
沙发
cjl0207 [专家分：60] 发布于 2006-10-17 23:43:00
for i:=100 to 999 do
begin
s:=inttostr(i);
temp1:=strtoint(s[1])*strtoint(s[1])
+strtoint(s[2])*strtoint(s[2])
+strtoint(s[3])*strtoint(s[3]);
if(i=temp1)then
memo1.Text:=memo1.text+'s, ';
end;
板凳
艾肯 [专家分：90] 发布于 2006-10-18 13:35:00
[quote]
for i:=100 to 999 do
begin
s:=inttostr(i);
temp1:=strtoint(s[1])*strtoint(s[1])
+strtoint(s[2])*strtoint(s[2])
+strtoint(s[3])*strtoint(s[3]);
if(i=temp1)then
memo1.Text:=memo1.text+'s, ';
end;[/quote]
应该是s[0]，s[1]，s[2]吧？
3 楼
aizaixiiii [专家分：2130] 发布于 2006-10-19 09:15:00
s1,s2,s3
4 楼
密码错误 [专家分：0] 发布于 2006-10-22 17:09:00
多谢各位了.
我来回复
您所在位置：