记录编号 | 12963 | 评测结果 | AAAAA | ||
---|---|---|---|---|---|
题目名称 | 硬币翻转 | 最终得分 | 100 | ||
用户昵称 | .Xmz | 是否通过 | 通过 | ||
代码语言 | Pascal | 运行时间 | 0.001 s | ||
提交时间 | 2009-09-24 19:06:39 | 内存使用 | 0.11 MiB | ||
program xmz; var f1,f2:text; n,a,b,x:integer; begin assign(f1,'coinn.in');assign(f2,'coinn.out'); reset(f1);rewrite(f2); read(f1,n); writeln(f2,n);x:=1; for a:=1 to n do begin x:=1-x; for b:=1 to n do begin if b<=a then write(f2,x) else write(f2,1-x); end; writeln(f2); end; close(f1);close(f2); end.