USACO 2.1 Ordered Fractions

Description

 输入一个自然数N　 
 请写一个程序来增序输出分母小于等于N的最简真分数 

Input

 单独的一行　一个自然数N(1..160)

Output

 每个分数单独占一行 
 最后一行有回车 

题解

 枚举暴力。

代码

{
ID: zyx52yzl
PROG: frac1
LANG: PASCAL
}
var
  n:longint;
procedure main(a,b,c,d:longint);
var
  n1,n2:longint;
begin
  n1:=a+c; n2:=b+d;
  if n2<=n then
    begin
      main(a,b,n1,n2);
      writeln(n1,'/',n2);
      main(n1,n2,c,d);
    end;
end;

begin
  assign(input,'frac1.in');
  assign(output,'frac1.out');
  reset(input);
  rewrite(output);
  readln(n);
  writeln('0/1');
  main(0,1,1,1);
  writeln('1/1');
  close(input);
  close(output);
end.