中国DOS联盟

支持这样的贴子~~~~强

第16题

p是质数，且p×p+1也是质数。求2006×p。解决方案：暂无

先说p*p+1不能是2,这样的话 p=1,不是质数

假设p是奇数,那么p*p也是奇数,p*p+1就是偶数,并且p*p+1是质数,又不是二,这是不可能的

因此p是偶数,又 p是质数,因此p=2

2006*2=?

很高

大家都太强了啊，佩服

第一题求水仙花数的简便方法：
@echo off && setlocal enabledelayedexpansion
for /l %%i in (100 1 999) do (
set tin=%%i
set /a ton=!tin:~0,1!*!tin:~0,1!*!tin:~0,1!+!tin:~1,1!*!tin:~1,1!*!tin:~1,1!+!tin:~-1!*!tin:~-1!*!tin:~-1!
if !tin! equ !ton! (
echo %%i
)
)
pause>nul

[ Last edited by 3dnowex on 2007-8-20 at 06:08 PM ]

#
求1000以内的完数.
所谓完数:
例如:
6
2*3=6
2+3+1=6
只要符合上述两要求就可以了.(第二条件是+1不可少的)

{
??????
}

Re：126F，来段效率高点的代码：
@echo off & setlocal enabledelayedexpansion for /l %%i in (6 1 1000) do ( title 正在检测：%%i set/a sum=1 set/a partnum=%%i/2 if !partnum! gtr 40 set/a partnum=40 for /l %%j in (2 1 !partnum!) do ( set/a var=%%i %% %%j if !var! EQU 0 ( set/a tmp=%%i/%%j if !tmp! gtr %%j set/a sum+=!tmp!+%%j)) if !sum! equ %%i echo %%i是完数 ) pause>nul

有个奇怪的现象：
用第二段代码检测1000以内的完数只有三个：6 28 496
改装一下，检测10000以内的完数也只多了一个而已：8128
是不是因为数字大，因而因子多，因子之和一般就比本身大，所以完数出现的概率就特别小啊？！

有点意思 .

25题
@echo off setlocal enabledelayedexpansion set /a gj=79 for /l %%i in (1,1,79) do ( set /a j1=200-%%i*4 set /a j=j1/2 set /a jg=!j!+%%i if !jg! equ !gj! echo 鸡=!j! 狗=%%i )
借鉴了youxi01的骆驼峰的算法..

呵呵 有趣 学习了

呵呵 有趣 学习了

看见高手学习下》

28
2*8=16
2+8+1=11

28是么...