NEERC/kequiv/tests/do11.dpr

   1 \r
   2 procedure gensame (x : integer);\r
   3 var i, j : integer;\r
   4 begin\r
   5   for i := 0 to 1 shl x - 1 do begin\r
   6     for j := x - 1 downto 0 do\r
   7       if (i and (1 shl j)) <> 0 then\r
   8         write (5)\r
   9       else\r
  10         write (4);\r
  11      write (4, ' ');\r
  12     for j := x - 1 downto 0 do\r
  13       if (i and (1 shl j)) <> 0 then\r
  14         write (5)\r
  15       else\r
  16         write (4);\r
  17      writeln (5);\r
  18   end;\r
  19 end;\r
  20 \r
  21 begin\r
  22   writeln (10000);\r
  23   gensame (4);\r
  24   gensame (8);\r
  25   gensame (9);\r
  26   gensame (10);\r
  27   gensame (13);\r
  28 end.