test4.pl0

来自「PL/0编译器」· PL0 代码 · 共 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.