echo off
setlocal ENABLEDELAYEDEXPANSION
set x=999
set y=39999999
set d=0
call :len "%y%%d%"
call :len "%y%"
set/a "n=%len% + %d%"
if %n% gtr 8 echo Количество знаков превышает воможности вычисления, поправимо, но не так
set /a "len=%len% + %d%"
set z=1
for /l %%i in (1,1,!len!) do set z=!z!0
set /a "z=%z% * x / y"
set /a "len=%len% - %d%"
for /l %%i in (1,1,!len!) do set z=0!z!
echo 0.%z%

exit /b

:len (string) {
    @@rem Процедура определения длины строки
    @@rem
    setlocal
    set opt=%~1
    set opt=%opt:"='%
    set out=%~0
    if "%out:~0,1%"==":" (
        set out=%out:~1%
        ) else (
        set out=out
        )
    set /a n=0
    :loop_len
    if not "%opt%"=="" (
        set opt=%opt:~1%
        set /a n=%n%+1
        goto loop_len
        )
    endlocal & set /a %out%=%n%
    exit /b 0
    }