@echo off
setlocal enableDelayedExpansion
call :initRule
echo 后三位数字转换规则:& set #
set /p num=请输入: 

call :calcSum num sum
echo =!sum!
echo 总和的个位: !sum:~-1!
call :specSum num sum

set /p=!sum!<NUL
for /l %%i in (3 -1 1) do (
set /p=+!num:~-%%i,1!<NUL
set /a sum+=!num:~-%%i,1!
)
echo =!sum!
echo 最后的结果个位: !sum:~-1!
pause
exit /b

:specSum num sum
echo 后三位总和特别计算:
set "%2=0"
for /l %%i in (3 -1 1) do (
	for /f "tokens=2 delims==" %%m in ('"set #_%%i_!%1:~-%%i,1!"') do (
		echo !%1:~-%%i,1!==^>%%m
		set /a %2+= %%m
	)
)
set %2
exit /b

:initRule 初始化特别规则, 百,十,个位的转换规则
for /l %%a in (0 1 9) do (
	set /a "#_3_%%a=%%a / 5, #_2_%%a= %%a %% 3, #_1_%%a= (%%a-1) / 3"
)
exit /b

:calcSum num sum 对数字 num 的每一位进行总和计算,结果由 sum 返回
set "%2=0"
for /l %%a in (0 1 1000) do (
	if "!%1:~%%a,1!" neq "" (
		set /a %2+=!%1:~%%a,1!
		set /p=+!%1:~%%a,1!<NUL
	) else exit /b
)
exit /b
复制代码

@echo off
setlocal enabledelayedexpansion

:Main
cls
set num=
set /p num=请输入一个5位数字（退出直接按回车）：
if not defined num exit
if "%num:~4%"=="" goto Main
if not "%num:~5%"=="" goto Main
set /a sum=%num%+0 2>nul
if %sum% neq %num% goto Main

set sum=0
for /l %%i in (0,1,4) do set num%%i=!num:~%%i,1!
for /l %%i in (0,1,4) do set /a sum+=!num%%i!
echo %sum:~-1%

set /a sum=%num2%+%num3%+%num4%
if %num2% leq 4 (set num2=0) else set num2=1
set /a mod=%num3%%%3
set num3=%mod%
if %num4% leq 3 (
    set num4=0
) else (
    if %num4% leq 6 (
        set num4=1
    ) else set num4=2
)
set /a sum=%sum%+%num2%+%num3%+%num4%
echo %sum:~-1%
pause

goto Main
复制代码

@echo off
setlocal enabledelayedexpansion

:Main
cls
set num=
set /p num=请输入一个5位数字（退出直接按回车）：
if not defined num exit
if "%num:~4%"=="" goto Main
if not "%num:~5%"=="" goto Main
set /a sum=%num%+0 2>nul
if %sum% neq %num% goto Main

set sum=0
for /l %%i in (0,1,4) do set num%%i=!num:~%%i,1!
for /l %%i in (0,1,4) do set /a sum+=!num%%i!
<nul set /p=结果是：%sum:~-1%

set /a sum=%num2%+%num3%+%num4%
if %num2% leq 4 (set num_2=0) else set num_2=1
set /a mod=%num3%%%3
set num_3=%mod%
if %num4% leq 3 (
    set num_4=0
) else (
    if %num4% leq 6 (
        set num_4=1
    ) else set num_4=2
)
set /a sum=%sum%+%num_2%+%num_3%+%num_4%
<nul set /p=%sum:~-1%

for /f "tokens=2 delims==" %%i in ('findstr  "[%num2%%num3%][%num2%%num3%]=" config.txt') do echo %%i
pause

goto Main
复制代码

@echo off&set /p a=输入一个5位数:&call set c=%%a%%&call set/a a=%%a:~,1%%+%%a:~1,1%%+%%a:~2,1%%+%%a:~3,1%%+%%a:~4,1%%,b=%%a:~2,1%%+%%a:~3,1%%+%%a:~4,1%%+%%a:~2,1%%/5+%%a:~3,1%%%%%%3+(%%a:~4,1%%-1)/3&call set /a d=%%a:~-1%%-%%b:~-1%%&call echo.结果一: %%a:~-1%%&call echo.结果二: %%b:~-1%%&call echo.差值是: %%d%%&call set c=%%c:~2,2%%
(for /f "tokens=2 delims==" %%i in ('findstr  "^%c%=.$ ^%c:~1%%c:~,1%=.$" %0') do echo 百十位: %%i)||echo 百十位:%c%没有定义&pause>nul&cls&%0
01=2
02=1
03=4
04=3
05=6
06=5
07=8
08=7
09=4
12=0
13=2
14=7
15=9
16=8
17=4
18=6
19=5
23=1
24=9
25=8
26=7
27=6
28=5
29=4
34=0
35=7
36=9
37=5
38=4
39=6
45=6
46=5
47=1
48=3
49=0
56=0
57=3
58=2
59=1
67=2
68=1
69=3
78=0
79=8
89=7
 
复制代码