2014noip复赛模拟练习25

《2014noip复赛模拟练习25》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、给定一连串整数,依次由1个1、2个2、3个3等组成，现在给定两个整数A和B，求出由第A个到第B个数的和。例如A是1，B是3，答案是1+2+2=5。要求给出一个问题，然后计算它们的和。输入格式：输入文件共一行，包括正整数A和B，1≤A≤B≤1000。输出格式：输出文件共一行，为和的值。输入样例1：13输出样例1：5输入样例2：37输出样例2：15vara,b,k,i,j,total:longint;c:array[1..1100]oflongint;beginreadln(a,b);i:=1;k:=0;whilek

2、:=k+i;inc(i);end;fori:=atobdobeginwrite(c[i],'');total:=total+c[i];end;writeln(total);end.输入130输出156输入20100输出866输入112500输出9439输入9001000输出4403若某不含数字0的三位正整数，其平方数至少有三位同样的数字，则称该三位数为三重数。例如，由于：5112＝261121（有三位1），所以511为三重数。输入N,求前N个三重数，并输出这些三重数之和。如输入5则输出119131149165168HE=732vari,j,k,a,b,c,x,n,count,

3、s,GS:longint;aa:array[1..5]ofinteger;beginwriteln;READ(GS);s:=0;count:=0;fori:=111to316dobegina:=idiv100;b:=(idiv10)mod10;c:=imod10;if((a<>0)and(b<>0)and(c<>0))thenbeginx:=i*i;aa[1]:=xdiv10000;aa[2]:=(xdiv1000)mod10;aa[3]:=(xdiv100)mod10;aa[4]:=(xdiv10)mod10;aa[5]:=xmod10;forj:=1to3dobeginn

4、:=1;fork:=j+1to5doifaa[j]=aa[k]thenn:=n+1;ifn>2thenbeginwriteln(i:8,x:8);s:=s+i;count:=count+1;break;end;otherstaffoftheCentre.Duringthewar,ZhuwastransferredbacktoJiangxi,andDirectorofthenewOfficeinJingdezhen,JiangxiCommitteeSecretary.Startingin1939servedasrecorderoftheWestNorthOrganization

5、,SecretaryoftheSpecialCommitteeAfterthevictoryofthelongMarch,hehasbeentheNorthwestOfficeoftheFederationofStateenterprisesMinister,ShenmufuguSARmissions,DirectorofNingxiaCountypartyCommitteeSecretaryandrecorderoftheCountypartyCommitteeSecretary,Ministersandend;end;ifcount=GSthenbreak;end;wri

6、teln(s:8);end.输入7输出119131149165168173212HE=1117输入10输出119131149165168173212216235258HE=1826输入12输出119131149165168173212216235258264298HE=2388输入13输出119131149165168173212216235258264298313HE=2701对容量为C的背包进行装载，从N个物品中选取装入背包的物品，每件物品I（1≤I≤N）的重量为WI，价值为PI，在满足背包中所有物品的总重量不能超过背包的容量的前提下，使所装入的物品价值取得最大值。输入文

7、件（文件名BAG。IN）第一行一个整数，表示C（1≤C≤10000），为背包容量；第二行一个整数，表示N（1≤N≤100），为物品数量；第三行N个整数（每个整数值取值范围为[1，100]），相邻两整数以一个空格间隔，为N个物品各自的重量；第四行N个整数（每个整数值取值范围为[1，100]），相邻两整数以一个空格间隔，为N个物品各自的价值；输出文件（文件名BAG。OUT）只一行，一个整数，表示能取得的最大价值。样例:输入104514340102530输出80varc,tmp:longint;n:integ