中国DOS联盟

@echo off

set num=

setlocal EnableDelayedExpansion

for /l %%a in (81 1 10000) do (

set shu=%%a

set/p=!shu! <nul

set/p=!num! <nul

for /l %%b in (1 1 4) do (

set qian=!shu:~0,%%b!

set hou=!shu:~%%b!

call :lis

set hou=!hou:b=!

set/a he=!qian!+!hou!

set/a jie=!he!*!he!

if !jie! equ %%a (

set var=^(!qian! + !hou! = !he!^)	^(!he! * !he!^) 		= !jie!

echo !var!

)))

echo\&echo  查找完毕......按任意键退出...

pause>nul

goto :eof

:lis

set hou=%hou%b

:loop

if %hou%==b set hou=0&goto :eof

if %hou:~0,1% equ 0 set hou=%hou:~1%&goto loop

goto :eof