| 比赛 | 20090923练习赛 | 评测结果 | AAAAA |
|---|---|---|---|
| 题目名称 | 硬币翻转 | 最终得分 | 100 |
| 用户昵称 | .Xmz | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2009-09-23 21:25:45 | ||
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.