code.txt

来自「这是一个编译原理的课程设计」· 文本 代码 · 共 18 行

program example(input,output);
var x,y : integer;
var xx:real;
function gcd(a, b: integer): integer;
begin
	if b = 0 then gcd := a
	else gcd := gcd(b,a mod b)
end;
begin
	
	while xx < 100 do 
		if xx > 100 then aa := 1 else begin aa := 3 end;
	if(  xx and  10 )  then  xx:=1;
	read(x,y);
	write(gcd(x,gcd(x,y)))
end.