找最小公倍数.prg

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

input"输入M:" to m
input"输入N" to n
a=m
b=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
?"最小公倍数是：",a*b/n