NOIP提高组初赛试题汇编(2002-2009)(18)

NOIP提高组初赛试题汇编(2002-2009)noip考试者必备我也是马上要考了!!!

end.

输入：1000351311输出：。

3．programprogram3;

varc:array[1..3]ofstring[200];

s:array[1..10]ofinteger;m,n,i:integer;procedurenumara;varcod:boolean;

i,j,nr:integer;begin

forj:=1tondobegin

nr:=0;cod:=true;fori:=1tomdo

ifc[i,j]='1'thenbegin

ifnotcodthenbegin

cod:=true;inc(s[nr]);nr:=0;endend

elsebegin

ifcodthenbegin

nr:=1;cod:=false;end

elseinc(nr);end;

ifnotcodtheninc(s[nr]);end;end;begin

readln(m,n);

fori:=1tomdoreadln(c[i]);numara;

fori:=1tomdo

ifs[i]<>0thenwrite(i,'',s[i],'');

end.输入：310

111000011111000011111000000011

输出：。4．programprogram4;const