@echo off
setlocal enabledelayedexpansion
set a=%1
if %a% gtr 9376 echo 该数超出上限&pause&exit
call :NumberOfString %a%
set /a b=a*a
set b=!b:~-%number%!
if %a% equ %b% (echo 该数是同构数) else (echo 该数不是同构数)
goto :eof
:NumberOfString
set string=%1
set number=0
:circle
set /a number+=1
set string=%string:~1%
if "%string%"=="" goto :eof
goto circle

…

抢
前排
，瞻仰楼主