test3.txt

来自「pl0文法编译器」· 文本 代码 · 共 22 行

var m,n:integer;
procedure swap;
	var temp:integer;
	begin
		temp := m;
		m := n;
		n := temp
	end;
procedure mod;
	begin
		m := m-m/n*n;
	end;
begin
	read(m,n);
	while n <> 0 do
		begin
			mod;
			swap;
		end;
	write("the max common divisor is: ",m);
end.