example.txt

来自「此文件包含了《编译原理》课程设计中词法、语法分析器及代码优化的源代码」· 文本 代码 · 共 11 行

program example(input, output);
var x, y: integer;
function gcd(a, b: integer): integer;
begin
	if b = 0 then gcd := a
	else gcd := gcd(b, a mod b)
end;
begin
	read(x,y);
	write(gcd(x, y))
end