批处理计算两个数的最大公约数（欧几里得算法）

小竹

1. @echo off
   
2. set/p a=请输入正整数a
   
3. set/p b=请输入正整数b
   
4. if %a% lss %b% set temp=%a%,a=%b%,b=%temp%
   
5. :start
   
6. set /a r=%a%%%%b%
   
7. if {%r%}=={0}   goto end
   
8. set a=%b%
   
9. set b=%r%
   
10. goto start
    
11. :end
    
12. echo a和b的最大公因子是%b%
    
13. pause

复制代码