test3.pl

来自「pl/0编译器,生成汇编语言,java代码,初学者都能看明白,并且补充很多的注释」· PL 代码 · 共 12 行

var x,y,rem;
begin
  read(x);
  read(y);
  repeat
    rem:=x-y*(x/y);
    x:=y;
    y:=rem
  until rem=0;
  write(x)
end.