主题：这题目对我有点困难
人才锐锐
[专家分：260] 发布于 2007-10-21 10:32:00
[em6]编程找出1～100之间的全部同构数，所谓同构数是指这样一个数，它出现在它的平方数右端，例如，5的平方是25，5是25右端的数，因此5是一个同构数，25也是一个同构数。[em18][em18][em18]
回复列表 （共8个回复）
沙发
人才锐锐 [专家分：260] 发布于 2007-10-21 14:22:00
高手都哪儿去了啊？这儿已经没会解这题目的人了吗？[em14][em14][em14]
板凳
Matodied [专家分：7560] 发布于 2007-10-21 17:14:00
CLS
FOR i=1 TO 100
ii$=LTRIM$(STR$(i)):iii$=LTRIM$(STR$(i*i))
IF RIGHT$(iii$,LEN(ii$))=ii$ THEN PRINT ii$,iii$
NEXT i
END
3 楼
蓝色的水晶 [专家分：90] 发布于 2007-11-04 12:13:00
此题关键是从平方后的数中取出最后几位数
如果是一位数的平方,则从一位数平方后的数中取出最后一位
如果是二位数的平方,则从二位数平方后的数中取出最后二位
．．．．．．
分析后：取最后几位数的方法为：x-int(x/k)*k
其中x是平方后的数，k则由取几位数确定是10,100,1000
程序如下：
for i=1 to 100
x=i*i
if i<10 then
k=10
elseif i<100 then
k=100
elseif i=1000 then
k=1000
endif
if x-int(x/k)*k=i then print i;
next i
end
4 楼
人才锐锐 [专家分：260] 发布于 2007-11-08 22:21:00
新问题：随机产生一个包含100个大写字母的字符串，分别统计出26个字母A到Z在字符串中出现的次数和具体位置[em10][em10][em10]
5 楼
人才锐锐 [专家分：260] 发布于 2007-11-11 11:34:00
大家回答我的新问题啊！！！[em9]
6 楼
人才锐锐 [专家分：260] 发布于 2007-11-12 20:55:00
帮忙帮忙啊！！！
7 楼
人才锐锐 [专家分：260] 发布于 2007-11-14 20:31:00
大家帮忙顶啊！不顶打开也好啊！[em11][em11][em11]
8 楼
人才锐锐 [专家分：260] 发布于 2007-11-15 22:13:00
问题多多回应少少！~[em9][em9][em9]
我来回复
您所在位置：