顺序分数

问题描述

输入一个自然数N,对于一个最简分数a/b（分子和分母互质的分数）,满足1<=b<=N,0<=a/b<=1,请找出所有满足条件的分数。

这有一个例子，当N=5时，所有解为：

0/1 1/5 1/4 1/3 2/5 1/2 3/5 2/3 3/4 4/5 1/1

给定一个自然数N，1<=n<=160，请编程按分数值递增的顺序输出所有解。

注：①0和任意自然数的最大公约数就是那个自然数②互质指最大公约数等于1的两个自然数。

输入格式

一个自然数N(1<=N<=160)

输出格式

每个分数单独占一行，按照大小次序排列

输入样例

5

输出样例

0/1

1/5

1/4

1/3

2/5

1/2

3/5

2/3

3/4

4/5

1/1

输入
输出
样例输入

样例输出

提示

N<=160

分析：凭借我高超的rp，我想到了递归,work(a,b,c,d)表示的是从a/b到c/d，递归的终止条件是分母大于n。利用了二分思想。
附代码（终于不用c++了！！！）

var
 n:longint;
procedure work(a,b,c,d:longint);
 var x,y:longint;
begin
 x:=a+c;y:=b+d;
 if y>n then exit;
 work(a,b,x,y);
 writeln(x,'/',y);
 work(x,y,c,d);
end;

begin
 readln(n);
 writeln('0/1');
 work(0,1,1,1);
 writeln('1/1');
end.