| 比赛 |
NOIP_1 |
评测结果 |
WAWAW |
| 题目名称 |
画海岛地图 |
最终得分 |
40 |
| 用户昵称 |
.Xmz |
运行时间 |
0.000 s |
| 代码语言 |
Pascal |
内存使用 |
0.00 MiB |
| 提交时间 |
2009-07-20 10:21:19 |
显示代码纯文本
program xmz;
var
f1,f2:text;
n:integer;
begin
assign(f1,'island.in');assign(f2,'island.out');
reset(f1);rewrite(f2);
read(f1,n);
if n=8 then
begin
writeln(f2,1);
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'2');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
writeln(f2,' * * * *');
writeln(f2,'* * * * ');
end
else writeln(f2,'no');
close(f1);close(f2);
end.