程序如下：
program zx00;
var
a:array[1..1000,1..1000] of char;
b:array[0..1000,0..1000] of integer;
dd,r,c,j,i,m:longint;
begin
readln(r,c);
for i:=1 to r do
begin
for j:=1 to c do
begin
read(a);
if a='#' then b:=1;
end;
readln;
end;
for i:=1 to r do
begin
for j:=1 to c do
begin
if b+b+b+b=3 then begin writeln('Bad placement.');dd:=-1;break;end;
if (b=1) and (b=0) and (b=0) then inc(m);
end;
end;
if dd=0 then writeln('There are ',m,' ships');
end.
7 条评论
-
zxok365 LV 8 @ 2010-07-23 12:06:03
** - -**
我提交5次了- 0
-
@ 2010-07-22 16:32:00
同 running 。。。。。。
貌似我最近RP太低，交题目老出running。。。
而且各个评测机上都出。。。求解释
-
@ 2010-07-21 21:37:44
你再交一次吧。
-
@ 2010-07-21 19:08:18
没什么好奇怪的
我见多了，rq不好就会碰上
5个占了3个running -
@ 2010-07-20 15:01:21
R1792004 Running 0 From wsh0516......
-
@ 2010-07-18 09:33:21
- -
R1791252 Running 0 From zxok365－P1076 FPC Edogawa Conan 2010-7-18 9:32:33
-
@ 2010-07-17 18:36:50
re
如果你的程序没问题就是评测机没有数据（不过MS题号偏后的缺数据频率高）
- 1
