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

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

1、写出下列程序运行结果1．varm,i,j:integer;a:array[1..100]oflongint;n:longint;beginreadln(m);fori:=1tomdobegina[i]:=1;forj:=i-1downto2doa[j]:=a[j]+a[j-1];end;fori:=1tomdon:=n+a[i];writeln(n);end.输入：8输出：2．vari,s,x,k,j:byte;beginreadln(x);i:=1;s:=0;whiles1then

2、beginforj:=2toidoifj<>kthenwrite(j,'');writeln;endelsebeginforj:=3toi-1dowrite(j,'');writeln(i+1);end;readln;end.输入10输出3．vari,k,n:integer;x,w:array[1..500]ofinteger;beginreadln(n);fori:=1tondobeginx[i]:=0;w[i]:=1;end;fori:=2totrunc(sqrt(n))+1doifx[i]=0thenbegink:=i*i;whileK<=ndobegi

3、nx[k]:=i;k:=k+i;end;end;fori:=ndownto1doifx[i]<>0thenbeginw[x[i]]:=w[x[i]]+w[i];w[idivx[i]]:=w[idivx[i]]+w[i];w[i]:=0;end;writeln(w[2],w[3]:5,w[5]:5);end.输入:10输出:4．constmaxn=1000;varpos,value:array[1..maxn]oflongint;n,i,j,x,sum:longint;change:boolean;beginread(n);fori:=1tondoread(po

4、s[i],value[i]);change:=true;i:=1;whilechangeand(i<=n-1)dobeginchange:=false;forj:=1ton-idoifvalue[j]>value[j+1]thenbeginchange:=true;x:=value[j];value[j]:=value[j+1];value[j+1]:=x;end;i:=i+1;end;sum:=0;fori:=1tondosum:=sum+pos[i]*value[i];writeln('sum=',sum);end.输入81821324953647885输

5、出完善程序：[问题描述]：菲波那契数列的规律是：前两个数均为1，第三个数开始每个数等于经前面两个数的和，即1，1，2，3，5，8，13，21，34，55，89……已知任意一个大于0的整数可以表示为若干个互不相同的菲波那契数。程序的输入输出示例：输入：121输出：121=89+21+8+3程序的算法说明(以121为例)：(1)寻找小于或等于n的最大菲波那契数a(如89)，并以a作为组成n的一个数输出。(2)若n不等于a，则以n-a作为新的任意正整数，重复(1)步骤。若n=a则结束。(3)函数find返回小于或等于n有最大菲波那契数。programcomplete

6、_program_2;varn:integer;functionfind(n:integer):integer;vara,b,c:integer;begina:=1;b:=1;repeatc:=【1】;a:=b;b:=c;untilb>=n;ifb=nthenfind:=【2】else【3】;end;procedurep(n:integer);vara:integer;begina:=find(n);write('+',a);ifa