123.txt

来自「实现了此法分析器和语法分析器 有详细的代码和文档」· 文本 代码 · 共 27 行

program jcd;
  Var x,y, g,m,a,b;
  Procedure swap;
    Var temp;
    begin 
      temp :=x;
      x := y;
      y := temp
    end; 
  procedure mod;
    begin
     x := x - x/y *y
    end;
begin
    read(x,y);
    a:=x;
    b:=y;
    call mod;
    while x <> 0do
     begin
        call swap;
        call mod
     end;
     g :=y;
     m :=a*b/g;
     write(g,m)
end.