@echo off
setlocal enabledelayedexpansion
set c=1
for %%i in (
    rem Продолжение квадратных корней двойки
	23726566 19951584 18295683 17520006 17144589 16959907 16868314 16822703
	16799944 16788576 16782895 16780055 16778635 16777925 16777570 16777393
	16777304 16777260 16777238 16777227 16777221 16777218 16777217 16777216
) do (
	set exp[!c!]=%%i
	set /a c+=1
)
set num=%1
set number=16777216
for /l %%i in (1,1,24) do (
	set /a "mask=(num >> (24-%%i)) & 1"
	if !mask!==1 call :mul24 !number! !exp[%%i]! number
)
Echo !number!
endlocal
exit /b

:mul24
setlocal
set a=%1
set b=%2
set /a "n=((a >> 12)*(b >> 12))+(((a & 0xFFF)*(b >> 12)) >> 12)+(((a >> 12)*(b & 0xFFF)) >> 12)"
endlocal&set %3=%n%
goto :eof