noip普及组复赛模拟试题34(附答案).pdfVIP

1.近来见习魔法师们在进行一项有关二进制数的研究，研究涉及的一个统计问题令他们大

伤脑筋。问题是这样的：若将一个正整数化为二进制数，在此二进制数中，我们将数字1

的个数多于数字0的个数的这类二进制数称为A类数，否则就称其为B类数。

例如：（13）10=（1101）2

其中1的个数为3，0的个数为1，则称此数为A类数；

（10）10=（1010）2

其中1的个数为2，0的个数也为2，称此数为B类数；

（24）10=（11000）2

其中1的个数为2，0的个数为3，则称此数为B类数；

程序要求：求出X～Y之中，全部A、B两类数的个数。

样例输入1020输出56

VarX,Y,i,j,la,lb:longint;

procedureze(m:longint);

varl0,l1:longint;

beginl0:=0;l1:=0;

whilem0do

beginifmmod2=0thenl0:=l0+1elsel1:=l1+1;

m:=mdiv2;end;

ifl1l0thenj:=1elsej:=0;

end;

beginla:=0;lb:=0;readln(x,y);

fori:=xtoydo

beginze(i);ifj=1thenla:=la+1elseifj=0thenlb:=lb+1;

end;

writeln(la);writeln(lb);

end.

输入50100输出2823输入200400输出11091

输入10002000输出615386输入4000050000输出48185183

老师给笑笑布置了一份作业，笑笑不知如何解决。老师给了一串很长的数列，

要求从中找出连续的一段来使的总和最大。

【输入文件】：

第一行包含一个整数n，表示数列的长度。(n=100000)

第二行包含n个整数来描述这个数列，每个整数的的绝对值不超过1000。

【文件输出】：

文件中只有一个整数，为最大的连续段总和。

【输入样例】:

5

1-231-4

【输出样例】

4

var

s:array[1..10000]oflongint;

n,ii,t,ans:longint;

begin

readln(n);

fori:=1tondo

read(s[i]);

t:=s[1];ans:=s[1];

fori:=2tondo

begin

ift0thent:=s[i]elset:=t+s[i];

iftansthenans:=t;

end;

writeln(ans);

end.

输入6

154-263输出17

输入10

24-12911720-815318输出87

输入7

1089-512611输出51

输入20

5121920-7-618221981133153217-3041424-13输出230

我们定义f(x)为x最大的奇数因数。比如f(18)=9,输入N，输出f(1)+f(2)+……+f(n).

输入文件：一个整数N，输出文件：输出连加的和。

样例输入：5样例输出：11

Varans,n,i:longint;

Beginreadln(n);

Whilen0do

Beginifodd(n)thenans:=ans+(1+n)*(n+1)ndiv4

Elseans:=ans+n*ndiv4;

N:=ndiv2;

End;

Write(ans);

End.

输入12输出50输入456输出69336

输入1000输出333396

输入10000输出

对于一个有序序列，想知道某个数是否在里面，若在，则返回其在序列中的位置；若不在，

则返回NO。输入文件XL.in。第1行的N表示共有N个数；接下来是N个数；最后一行

是要询问的数K。输出