Cantor表 pascal
- 格式：doc
- 大小：16.50 KB
- 文档页数：1
Cantor表 1999年NOIP全国联赛普及组
题目描述 Description
现代数学的著名证明之一是Georg Cantor证明了有理数是可枚举的。他是用下面这一张表来证明这一命题的： 1/1 1/2 1/3 1/4 1/5 … 2/1 2/2 2/3 2/4 … 3/1 3/2 3/3 … 4/1 4/2 … 5/1 … … 我们以Z字形给上表的每一项编号。第一项是1/1，然后是1/2，2/1，3/1，2/2，…
输入描述 Input Description
整数N（1≤N≤10000000）
输出描述 Output Description
表中的第N项
样例输入 Sample Input
7
样例输出 Sample Output
1/4
var n,k,i,z:longint;
begin
readln(n);
z:=1;
k:=1;
while k<>n+1 do begin
for i:=1 to z do begin
inc(k);
if (k-1)=n then begin
if z mod 2=0 then begin
writeln(i,'/',z-i+1);exit; end else
begin writeln(z-i+1,'/',i); exit; end;
end;
end;
inc(z);
end;
writeln(1,'/',1);
end.
