记录编号 13027 评测结果 AAAAA
题目名称 硬币翻转 最终得分 100
用户昵称 GravatarHamster 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2009-09-25 20:39:59 内存使用 0.11 MiB
显示代码纯文本
program coinn;
var
  i,j,n,x,y,ii,xx:integer;
  a:array[1..100] of integer;

begin
  assign(input,'coinn.in');
  reset(input);
  assign(output,'coinn.out');
  rewrite(output);

  read(n);
  write(n);
  writeln;
  for i:=1 to n do a[n]:=0;
  for i:=1 to n do
  begin
    for j:=1 to n do a[j]:=(a[j]+1) mod 2;
    a[i]:=(a[i]+1) mod 2;
    for j:=1 to n do write(a[j]);
    writeln;
  end;

  close(input);
  close(output);
end.