bbb.txt

来自「这是一个语法分析器」· 文本 代码 · 共 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.