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

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

else

w[i]:=b[0];

a[m-1]:=a[m-1]-1;forj:=0tom-1dob[j]:=b[j]+1;

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

begin

m:=m-1;b[m]:=1;end;

end;

fori:=0ton-1dobegin

write(w[i]);write('');end;

writeln('');end.

输入：9

4666689999

输出：____________________

五.完善程序（完善程序（共2题，第1题每空3分；第2题每空2分。共计28分）。1.翻硬币

题目描述：

一摞硬币共有m枚，每一枚都是正面朝上。取下最上面的一枚硬币，将它翻面后放

回原处。然后取下最上面的2枚硬币，将他们一起翻面后放回原处。在取3枚，取4枚……直至m枚。然后在从这摞硬币最上面的一枚开始，重复刚才的做法。这样一直做下去，直到这摞硬币中每一枚又是正面朝上为止。例如，m为1时，翻两次即可。输入：仅有的一个数字是这摞硬币的枚数m，0<m<1000。输出：为了使这摞硬币中的每一枚都是朝正面朝上所必须翻的次数。输入样例：30输出样例：899程

序：

programProgram1;varm:integer;

functionsolve(m:integer):integer;

vari,t,d:integer;

flag:Boolean;begin

if(m=1)then

solve:=(1)elsebegin

d:=2*m+1;t:=2;repeat

i:=1;flag:=False;