⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ac1139.pas

📁 uralcode
💻 PAS
字号:
program ural1139;
var
  n,m,g:word;
function gcd(a,b:word):word;
  var
    r:word;
  begin
    repeat
      r:=a mod b;a:=b;b:=r;
    until b=0;
    gcd:=a;
  end;
begin
  readln(n,m);
  dec(n);dec(m);
  g:=gcd(n,m);
  n:=n div g;m:=m div g;
  writeln((n+m-1)*g);
end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -