@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