记录编号	13976	评测结果	AAAAA
题目名称	硬币翻转	最终得分	100
用户昵称	maxiem	是否通过	通过
代码语言	Pascal	运行时间	0.019 s
提交时间	2009-10-21 11:46:58	内存使用	0.11 MiB

program coin;
var
  c:array [1..100] of integer;
  n,r,i,j:integer;
begin
  fillchar (c,sizeof(c),0);
  assign (input,'coinn.in');
  reset (input);
  readln (n);
  close (input);
  assign (output,'coinn.out');
  rewrite (output);
  writeln (n);
  r:=0;
  for i:=1 to n do begin
    for j:=1 to n do c[j]:=1-c[j];
    j:=1;while c[j]<>1-r do inc(j);
    c[j]:=r;r:=1-r;
    for j:=1 to n do write (c[j]);
    writeln;
  end;
  close (output);
end.