gcd.pl

来自「编译课程设计」· 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.