China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --

Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!

中国DOS联盟论坛
The time now is 2026-07-31 22:27
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [Discussion][Exploration] Using batch processing to make interesting math problems DigestI View 36,411 Replies 139
Floor 121 Posted 2007-06-27 23:00 ·  中国 广东 深圳 电信
新手上路
Credits 12
Posts 5
Joined 2007-06-27 20:29
19-year member
UID 92533
Gender Male
Status Offline
Support such a post~~~~strong
Floor 122 Posted 2007-06-30 11:46 ·  中国 山东 淄博 联通
中级用户
★★
Credits 272
Posts 99
Joined 2006-06-02 09:12
20-year member
UID 56414
Status Offline
### Solution:
First, consider that \(p \times p + 1\) cannot be 2. If \(p \times p + 1 = 2\), then \(p = 1\), but 1 is not a prime number.

Assume \(p\) is an odd number. Then \(p \times p\) is an odd number, and \(p \times p + 1\) is an even number. Also, since \(p \times p + 1\) is a prime number and not 2, this is impossible.

Therefore, \(p\) must be an even number. And since \(p\) is a prime number, \(p = 2\).

Then \(2006 \times p = 2006 \times 2 = 4012\)

\(\boxed{4012}\)
Floor 123 Posted 2007-06-30 18:34 ·  中国 上海 电信
新手上路
Credits 4
Posts 2
Joined 2007-06-30 18:00
19-year member
UID 92787
Gender Male
Status Offline
Very high
Floor 124 Posted 2007-07-08 00:51 ·  中国 河南 濮阳 联通
初级用户
Credits 47
Posts 24
Joined 2006-10-22 00:31
19-year member
UID 67599
Gender Male
Status Offline
Everyone is too strong, I admire
Floor 125 Posted 2007-08-20 18:04 ·  中国 江西 吉安 电信
初级用户
Credits 41
Posts 20
Joined 2007-03-05 00:45
19-year member
UID 80788
Gender Male
Status Offline
First question to find narcissistic numbers simple method:
@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 ]
Floor 126 Posted 2007-08-21 12:15 ·  IANA 局域网IP(Private-Use)
中级用户
★★
蝴蝶之吻
Credits 430
Posts 177
Joined 2006-09-20 12:00
19-year member
UID 63170
From 广东深圳
Status Offline
#
Find perfect numbers within 1000.
The so-called perfect number:
For example:
6
2*3=6
2+3+1=6
As long as it meets the above two requirements. (The second condition that +1 is indispensable)

{
??????
}
Floor 127 Posted 2007-08-21 13:21 ·  中国 中电华通
高级用户
★★
Credits 846
Posts 247
Joined 2006-10-27 12:03
19-year member
UID 68504
Gender Male
From 湖南==》广东
Status Offline
```
@echo off & setlocal enabledelayedexpansion
for /l %%i in (6 1 1000) do (
title Checking: %%i
set/a sum=1
set/a partnum=%%i/2
for /l %%j in (2 1 !partnum!) do (
set/a var=%%i %% %%j
if !var! EQU 0 set/a sum+=%%j)
if !sum! EQU %%i echo %%i is a perfect number)
pause
```
Floor 128 Posted 2007-08-21 13:52 ·  中国 中电华通
高级用户
★★
Credits 846
Posts 247
Joined 2006-10-27 12:03
19-year member
UID 68504
Gender Male
From 湖南==》广东
Status Offline
Re: 126F, come up with a more efficient piece of code:

@echo off & setlocal enabledelayedexpansion
for /l %%i in (6 1 1000) do (
title Detecting: %%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 is a perfect number
)
pause>nul
Floor 129 Posted 2007-08-21 14:00 ·  中国 中电华通
高级用户
★★
Credits 846
Posts 247
Joined 2006-10-27 12:03
19-year member
UID 68504
Gender Male
From 湖南==》广东
Status Offline
There is a strange phenomenon:
Using the second piece of code to detect perfect numbers within 1000, there are only three: 6, 28, 496.
After modification, when detecting perfect numbers within 10000, only one more is added: 8128.
Is it because the number is large, so there are more factors, and the sum of factors is generally larger than itself, so the probability of perfect numbers appearing is particularly small?
Floor 130 Posted 2007-08-25 01:49 ·  中国 广西 贵港 电信
初级用户
Credits 23
Posts 10
Joined 2006-12-04 22:13
19-year member
UID 72565
Gender Male
Status Offline
A bit interesting
Floor 131 Posted 2007-08-25 22:51 ·  中国 广东 广州 白云区 电信
中级用户
★★
Credits 251
Posts 108
Joined 2007-01-07 11:33
19-year member
UID 75721
Gender Male
From 湖南==>广州
Status Offline
Question 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
)

Learned from the algorithm of the camel hump in youxi01..
DOS新人.多多指導
Floor 132 Posted 2007-09-12 23:25 ·  中国 重庆 电信
新手上路
Credits 6
Posts 3
Joined 2007-09-12 22:42
18-year member
UID 97223
Gender Male
Status Offline
Hehe, interesting, learned
Floor 133 Posted 2007-09-12 23:25 ·  中国 重庆 电信
新手上路
Credits 6
Posts 3
Joined 2007-09-12 22:42
18-year member
UID 97223
Gender Male
Status Offline
Hehe, interesting, learned something
Floor 134 Posted 2007-09-20 21:14 ·  中国 浙江 温州 电信
新手上路
Credits 2
Posts 1
Joined 2007-09-20 20:48
18-year member
UID 97909
Gender Male
Status Offline
Watch the master learn
Floor 135 Posted 2007-09-24 10:18 ·  IANA 局域网IP(Private-Use)
中级用户
★★
蝴蝶之吻
Credits 430
Posts 177
Joined 2006-09-20 12:00
19-year member
UID 63170
From 广东深圳
Status Offline
28
2*8=16
2+8+1=11

28 is it...
Forum Jump: