找最大公约数.prg

来自「常用算法」· PRG 代码 · 共 15 行

input"输入M:" to m
input"输入N" to n
if n=0 then
  ?"数据有错！"
  exit
endif  
 r=mod(m,n)
do while r>0
  m=n
  n=r
  r=mod(m,n)
enddo
?"最大公约数是：",n