noip普及组初赛写运行结果+完善程序7

《noip普及组初赛写运行结果+完善程序7》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、写出下列程序运行结果1．VARA：ARRAY[1。。6]OFINTEGER；I，J，K，S，T：INTEGER；begina[1]:=1;t:=0;fori:=2to6dobegins:=0;forj:=1toi-1dos:=s+a[j];a[i]:=s+1;end;fori:=1to6dot:=t+a[i];writeln(‘t=’,t);end.输出2．var　n:byte;　a:array[1..100]oflongint;functionf(n:byte):longint;vari:longint;begin　ifa[n-1]>0theni:=a[n-1]elsei:=

2、f(n-1);　ifa[n-2]>0theni:=i+a[n-2]　elsei:=i+f(n-2);　a[n]:=i;f:=i;end;begin　fillchar(a,sizeof(a),0);　a[1]:=1;a[2]:=1;　writeln('F(',8,')=',f(8));end.输出：3．CONST=6;varI,j,k:integer;r:array[0..10]ofinteger;beginforI:=1tondoread(r[I]);forI:=2tondobegink:=r[I];j:=I-1;while(k>r[j])and(j>0)dobeginr[j+

3、1]:=r[j];j:=j-1;end;r[j+1]:=k;end;forI:=1tondowrite(r[I],'');end.输入：8106732输出4．varx,x2:longint;proceduredigit(n,m:longint);varn2:integer;beginif(m>0)thenbeginn2:=nmod10;write(n2:2);if(m>1)thendigit(ndiv10,mdiv10);n2:=nmod10;write(n2:2);end;end;beginwriteln('Inputanumber:');readln(x);x2:=1;wh

4、ile(x2

5、;vara:array[1..100]:integer;i,j,k,x,y:integer;beginread(R);j:=0;read(x);while(1)dobeginj:=j+1;(2);read(x)end;i:=0;repeati:=i+1;x:=a[i];y:=0;fork:=1to(3)doifx