记录编号 136041 评测结果 AAAAAAAAAA
题目名称 数字对 最终得分 100
用户昵称 Gravatar传奇 是否通过 通过
代码语言 Pascal 运行时间 0.207 s
提交时间 2014-11-02 10:53:55 内存使用 0.17 MiB
显示代码纯文本
program cojs1789_1;
var
  i,j,k,n,a,b,ans:longint;
function jisuan(x,y:longint):longint;
var
  t,i,j:longint;
begin
  t:=0;
  while (x<>1)or(y<>1) do
    begin
      if (x=y) then exit(maxlongint);
      if (x>y)and(x mod y<>0) then begin
        inc(t,x div y); x:=x mod y;
        end;
      if (x>y)and(x mod y=0) then begin x:=x-y; inc(t); end;
      if (y>x)and(y mod x<>0) then begin inc(t,y div x); y:=y mod x; end;
      if (y>x)and(y mod x=0) then begin y:=y-x; inc(t); end;

    end;
  exit(t);
end;
begin
  assign(input,'numpair.in');
  assign(output,'numpair.out');
  reset(input);
  rewrite(output);

  readln(n);
  ans:=maxlongint;
  for i:=n div 3 to n div 2 do
    begin
      k:=jisuan(n,i);
      if ans>k then
        ans:=k;
    end;
  writeln(ans);

  close(input);
  close(output);
end.