记录编号 136040 评测结果 AAAAAAAAAA
题目名称 1789.数字对 最终得分 100
用户昵称 传奇 是否通过 通过
代码语言 Pascal 运行时间 0.220 s
提交时间 2014-11-02 10:52:03 内存使用 0.17 MiB
显示代码纯文本
program hah;
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 begin x:=x-y; end
          else begin y:=y-x; end;
      if (x=0)or(y=0) then exit(maxlongint);
      inc(t);
    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.