[原创]*****找最小公倍数***** - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

@echo off
setlocal enabledelayedexpansion
::::::::::::::::::::::::::::Find The Smallest Public Doubles::::::::::::::::::::::::::::
:::::::::::::::::::::::::::: {s11ss 2007-9-20} ::::::::::::::::::::::::::::
:r
echo Please input two integers,like 9,20:
set /p n=
echo.
echo Calculating...
set /a i=1
for %%a in (!n!) do (
set n!i!=%%a
set /a i+=1
)
if !n1! equ !n2! (
call :e !n1!
goto :eof
)
if !n1! lss !n2! (
set t=!n1!
set n1=!n2!
set n2=!t!
)
set /a big=!n1!
set /a t=!n1!
set /a small=!n2!
:c
set /a remain=!big!%%!small!
if !remain! equ 0 (
call :e !big!
goto :eof
) else (
set /a big+=!t!
goto :c
)
:e
echo.
echo The smallest public doubles is %1.
echo.
echo Press Any Key To Exit...
pause>nul