记录编号	14351	评测结果	AAAAA
题目名称	硬币翻转	最终得分	100
用户昵称	reamb	是否通过	通过
代码语言	Pascal	运行时间	0.021 s
提交时间	2009-10-29 08:38:01	内存使用	0.11 MiB

program fanzhuanyingbi;   
var  
  n,i,j:integer;   
  a:array[1..100]of integer;   
begin  
  assign (input,'coinn.in');   
  reset (input);   
  assign (output,'coinn.out');   
  rewrite (output);   
  read (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  
        if i<>j then  
          if a[j]=0  then  
            a[j]:=1  
          else  
            a[j]:=0;   
      for j:=1 to n do  
        write (a[j]);   
      writeln  
    end;   
  close (input);   
  close (output)   
end.