2014noip复赛模拟练习25.doc

给定一连串整数,依次由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：1 3输出样例1：5 输入样例2：3 7输出样例2：15 var a,b,k,i,j,total:longint; c:array[1..1100]of longint; begin readln(a,b); i:=1;k:=0; while kb do begin for j:=1 to i do c[k+j]:=i; k:=k+i; inc(i); end; for i:=a to b do begin write(c[i], ); total:=total+c[i]; end; writeln(total); end. 输入 1 30 输出 156 输入 20 100 输出 866 输入 112 500 输出 9439 输入 900 1000 输出 4403 若某不含数字0的三位正整数，其平方数至少有三位同样的数字，则称该三位数为三重数。例如，由于：5112＝261121（有三位1），所以511为三重数。输入N,求前N个三重数，并输出这些三重数之和。如输入 5则输出 119 131 149 165 168HE=732 var i,j,k,a,b,c,x,n,count,s,GS:longint; aa:array[1..5]of integer; begin writeln; READ(GS); s:=0; count:=0; for i:=111 to 316 do begin a:=i div 100; b:=(i div 10) mod 10; c:=i mod 10; if ((a0)and(b0)and(c0)) then begin x:=i*i; aa[1]:=x div 10000; aa[2]:=(x div 1000) mod 10; aa[3]:=(x div 100) mod 10; aa[4]:=(x div 10) mod 10; aa[5]:=x mod 10; for j:=1 to 3 do begin n:=1; for k:=j+1 to 5 do if aa[j]=aa[k] then n:=n+1; if n2 then begin writeln(i:8,x:8); s:=s+i; count:=count+1; break; end; end; end; if count=GS then break; end; writeln(s:8); end. 输入 7 输出119 131 149 165 168 173 212 HE=1117 输入 10 输出 119 131 149 165 168 173 212 216 235 258HE=1826 输入 12 输出119 131 149 165 168 173 212 216 235 258 264 298 HE=2388 输入 13 输出119 131 149 165 168 173 212 216 235 258 264 298 313HE=2701 对容量为C的背包进行装载，从N个物品中选取装入背包的物品，每件物品I（1≤I≤N）的重量为WI，价值为PI，在满足背包中所有物品的总重量不能超过背包的容量的前提下，使所装入的物品价值取得最大值。输入文件（文件名BAG。IN） 第一行一个整数，表示C（1≤C≤10000），为背包容量； 第二行一个整数，表示N（1≤N≤100），为物品数量； 第三行N个整数（每个整数值取值范围为[1，100]），相邻两整数以一个空格间隔，为N个物品各自的重量； 第四行N个整数（每个整数值取值范围为[1，100]），相邻两整数以一个空格间隔，为N个物品各自的价值； 输出文件（文件名BAG。OUT） 只一行，一个整数，表示能取得的最大价值。 样例:输入 10 4 5 1 4 3 40 10 25 30 输出 80 var c,tmp:longint;n:integer; w,p:array[1..