记录编号 137026 评测结果 AAAAAAAAAAAAAAA
题目名称 Cantor的数表 最终得分 100
用户昵称 Gravatar传奇 是否通过 通过
代码语言 Pascal 运行时间 3.127 s
提交时间 2014-11-03 22:15:28 内存使用 0.17 MiB
显示代码纯文本
program cojs1467;
var
  i,j,k,m,n,t:longint;
begin
  assign(input,'Cantor.in');
  assign(output,'Cantor.out');
  reset(input);
  rewrite(output);

  while not eof do
    begin
      readln(n);
      t:=0;
      i:=0;
      while n>t do
        begin
          inc(i,100);
          t:=(i+1)*i div 2;
        end;
      while n<=t do
        begin
          dec(i);
          t:=(i+1)*i div 2;
        end;
      n:=n-(i+1)*i div 2;
      inc(i);
      if i mod 2=1 then
      writeln(i-n+1,'/',n)
      else
        writeln(n,'/',i-n+1);
    end;

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