这个简单,
原理就是从最小的数开始向下循环,依次判断是否能同时被两数整除,如果是就是最大公约数,并且循环停下来.从最小数开始向上循环,依次判断是否能同时整除两数,如果是就是最小公倍数,并且循环停下来.
input "输入第一个自然数" to m
input "输入第二个自然数" to n
for i=min(m,n) to 1 step -1
if m%i=0 and n%i=0
"最大公约数是",i
exit
endif
endfor
for i=max(m,n) to m*n
if i%m=0 and i%n=0
"最小公倍数是",i
exit
endif
endfor
return