批处理求两个正整数的最大公因子(欧几里德算法)

@echo off &title DOS资源站 www.cmdos.net
set/p a=请输入正整数a
set/p b=请输入正整数b
if %a% lss %b% set temp=%a%,a=%b%,b=%temp%
:start
set /a r=%a%%%%b%
if {%r%}=={0}   goto end
set a=%b%
set b=%r%
goto start

:end
echo a和b的最大公因子是%b%

pause