MCITYHAL - Repair City Hall
Tác giả: flashmt
Ngôn ngữ: Pascal
var m,n,i,j:byte;
a:array[1..200,1..200] of char;
b:array[1..200] of integer;
procedure count(j:byte);
var i,t:byte;
begin
t:=0; i:=1;
while i<=n do
begin
if a[i,j]='0' then
begin
t:=i;
repeat
inc(i);
until (a[i,j]='1') or (i>n);
inc(b[i-t]);
end;
inc(i);
end;
end;
begin
readln(m,n);
for i:=1 to m do
begin
for j:=1 to n do
read(a[i,j]);
readln;
end;
fillchar(b,sizeof(b),0);
for j:=1 to n do
count(j);
for i:=1 to m do
if b[i]>0 then writeln(i,' ',b[i]);
end.