clear
input "请输入第1个数:" to a
input "请输入第2个数:" to b
c=min(a,b)
do while c>0
if a%c=0 and b%c=0
s=c
exit
endif
c=c-1
enddo
"它们的最大公约数是:",s
0if a%c" property="og:description"/>
clear
input "请输入第1个数:" to a
input "请输入第2个数:" to b
c=min(a,b)
do while c>0
if a%c=0 and b%c=0
s=c
exit
endif
c=c-1
enddo
"它们的最大公约数是:",s