顺序的分数（easy，现用了更简便方法）

题目：

题目描述

输入一个自然数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..160)

输出格式：
每个分数单独占一行，按照大小次序排列

作者思路：这种方法不用排序方式，先让分母最大，分子最小，后输出大的。

代码：

var n:longint;
procedure dfs(x1,y1,x2,y2:longint);
var x,y:longint;
begin
  x:=x1+x2; y:=y1+y2;
  if y>n then exit;
  dfs(x1,y1,x,y);
  writeln(x,'/',y);
  dfs(x,y,x2,y2);
end;
begin
  read(n);
  writeln('0/1');
  dfs(0,1,1,1);
  write('1/1');
end.