刚才写了一个算法，大家提提意见

Question

<script>
 var max,mid,min;
 //  270 120  -》30  -》0
 max=270;
 mid=120;
while (min!=0)
{
min= max%mid;
max=mid;
mid=min;
}
alert(max);
</script>

Answer 1

百度百科一下最大公约数。里面是一个用PASCAL写的经典程序。呵呵，翻译过来和你这个是一样的

Answer 2

　　PASCAL
　　program zuidagongyueshu;
　　var m,n,a,b,r:integer;
　　begin『主程序』
　　write('Input m,n=');
　　readln(m,n);
　　a:=m;
　　b:=n;
　　repeat
　　r:=a mod b;
　　a:=b;
　　b:=r;
　　until r=0;
　　writeln('The greatest common divide is:',a);
　　end。没想到还真是一样，！