几道划数题目，供消遣 — 编程爱好者社区

主题：几道划数题目，供消遣

spray [专家分：180] 发布于 2005-12-06 07:52:00

1.从自然数123456789101112......99100中划去100个数字，首位不是零的最小的数是几？
2.100个人排成一列，自1往下报数，报奇数的出列，留下的人再重新报数，这样继续下去......，最后留下一个人，问这个人第一次报数时报的数是几？
3.众神之王庙斯的女儿海伦是世界上最美丽的姑娘，追求她的英俊青年有一百万，每一位追求者都向她献上一件求婚礼物，海伦把这些礼物串成一条项链，它沿着赤道把地球绕了一圈，触犯了海神尼普顿，因为奔腾咆哮的大海也被这条项链束缚住了。太阳神阿波罗劝海伦赶快在这一百万个追求者中选一个如意郎君，把其余的礼物退掉。海伦就从项链上的某件礼物（设它的编号为1）开始，从东向西沿着项链先淘汰掉相邻的第2号礼物，留下第3号，淘汰第4号礼物，总是沿着项链每隔一件淘汰一件，最后只剩下了一件礼物。这是迈锡尼王阿伽门农的弟弟墨涅拉俄斯所献的礼物，于是海伦成了墨涅拉俄斯的妻子。请问，墨涅拉俄斯的礼物在项链上是第几号？

本帖地址： http://bbs.pfan.cn/post/127012.html

回复列表（共6个回复）

沙发

moz [专家分：37620] 发布于 2005-12-06 13:59:00

1.  第一题我做过，但现在一时想不起来
2.  这道题我没编，只是去奇数的，估想一百以内2的最高次方数是64，
    估计就是这个数可以除以2除多几次了
3.  这个是循环淘汰双数的，可以想想看，其实也不难。
    （我只听说过宙斯，没听说过庙斯）

板凳

moz [专家分：37620] 发布于 2005-12-06 15:46:00

第一题：
s$="123456789101112......99100"

do
  j=j+1
  for i=1 to len(s$)-1
      if mid$(s$,i,1)>mid$(s$,i+1,1) then
         s$=left$(s$,i-1)+mid$(s$,i+1)
         exit for
      endif
  next
loop while j<100 and i<len(s$)

if i=len(s$) then
   if len(s$)>(100-j) then
      s$=left$(s$,len(s$)-(100-j+1))
   else
      s$=""
   endif
endif

print s$

3 楼

moz [专家分：37620] 发布于 2005-12-06 16:29:00

第二题：
dim n(100)
for i=1 to 100
    n(i)=i
next

do
  i=i-1
  for i=1 to i/2
    n(i)=n(i*2)
  next
loop until i=1
print n(i)

4 楼

moz [专家分：37620] 发布于 2005-12-06 19:08:00

第三题：

DEFLNG A-Z
n = 1000000
DO
  s$ = CHR$(1 - p) + s$
  IF n MOD 2 THEN
     n = n + (1 - p)
     p = 1 - p
  END IF
  n = n \ 2
LOOP UNTIL n = 1

FOR i = 1 TO LEN(s$) ：n = n * 2 - ASC(MID$(s$, i, 1)) ：NEXT
PRINT n

'=951425  不知道对不对

5 楼

spray [专家分：180] 发布于 2005-12-07 10:15:00

[em4]我不知怎样加分啊？

6 楼

moz [专家分：37620] 发布于 2008-01-09 20:30:00

第一道题我应该没有理解题意,应该是做错了.
第二道题的结果应该是100以内2的次幂最高的数,当之不让应该是64,应该不用编程了.

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：几道划数题目，供消遣

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：几道划数题目，供消遣

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）