记录编号	13021	评测结果	AAAAA
题目名称	硬币翻转	最终得分	100
用户昵称	ybh	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2009-09-25 19:15:30	内存使用	0.11 MiB

program YingBiFanZhuan;
var
  a:array[1..1000] of integer;
  i,j,n:integer;
begin
  assign(input,'coinn.in');
  reset(input);
  assign(output,'coinn.out');
  rewrite(output);
  readln(n);
  writeln(n);
  for i:=1 to n do
    a[i]:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i<>j then
      begin
        if a[j]=0
          then a[j]:=1
          else a[j]:=0
      end;
      write(a[j])
    end;
    writeln
  end;
  close(input);
  close(output)
end.