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

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

functiontest(m,N:integer):integer;vari,p:integer;flag:boolean;begin

m:=m-1;i:=0;flag:=False;forp:=2*Ndownto(N+1)dobegin

i:=(i+m)modp;if(ibegin

test:=0;flag:=Ture;end

end;

ifnot(flag)thentest:=1;end;

begin

read(n);m:=1;Mark:=False;repeat

if(test(m,n)=1)thenbeginwriteln(m);break;end;m:=m+1;untilMrak;end.输入：7

4.programProgram4;

varm,n,i,j:integer;

p,w,a,b:array[0..19]ofinteger;begin

read(n);m:=0;

fori:=0ton-1dobeginread(p[i]);b[i]:=1;end;fori:=0ton-1dobegin

if(i>0)then

a[m]:=p[i]-p[i-1]else

a[m]:=p[i];m:=m+1;

while((m>1)and(a[m-1]=0))do

beginm:=m-1;b[m]:=1;end;if(m>0)thenw[i]:=b[m-1];

Break;输出_________