gcd.txt

来自「这是我自己实现的一个微小的编译程序,附可执行代码的虚拟机,是理解编译原理的绝好材」· 文本 代码 · 共 20 行

/*求最大公约数程序,edit by 谭添升 2006-5-28*/
var a:int;
var b:int;
var result:int


begin
	read a;
	read b;
	while not (a==b)
	do
	begin
		if a>b then a:=a-b 
		else b:=b-a
		fi
	end;
	result:=a;
	write result
end