NOIP1999普及组
| Time Limit: 1000MS | Memory Limit: 30000K | |
| Total Submissions: 9333 | Accepted: 5469 |
Description
One of the famous proofs of modern mathematics is Georg Cantor's demonstration that the set of rational numbers is enumerable. The proof works by using an explicit enumeration of rational numbers as shown in the diagram below.
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
In the above diagram, the first term is 1/1, the second term is 1/2, the third term is 2/1, the fourth term is 3/1, the fifth term is 2/2, and so on.
Input
The input list contains a single number per line and will be terminated by endof-file.
Output
You are to write a program that will read a list of numbers in the range from 1 to 10^7 and will print for each number the corresponding term in Cantor's enumeration as given below.
Sample Input
3
14
7
Sample Output
TERM 3 IS 2/1
TERM 14 IS 2/4
TERM 7 IS 1/4
Source
Solutions
模拟打一个Cantor表。
var n,i,m:longint;
procedure main;
begin
readln(n);
m:=n;
i:=;
while n>i do
begin
dec(n,i);
inc(i)
end;
if i mod = then writeln('TERM ',m,' IS ',i+-n,'/',n)
else writeln('TERM ',m,' IS ',n,'/',i+-n);
end;
begin
while not seekeof do
main;
end.