noip普及组复赛模拟试题26(答案)

1．数字反转(reverse.cpp/c/pas)【问题描述】给定一个整数，请将该数各个位上数字反转得到一个新数。

新数也应满足整数的常见形式，即除非给定的原数为零，否则反转后得到的新数的最高位数字不应为零（参见样例2）。

【输入】输入文件名为reverse.in。

输入共 1 行，一个整数N。

【输出】输出文件名为reverse.out。

输出共 1 行，一个整数，表示反转后的新数。

【输入输出样例1】reverse.in reverse.out123 321【输入输出样例2】Reverse.in reverse.out-380 -83【数据范围】-1,000,000,000 ≤N≤1,000,000,000。

vars3,s1,s2:string;n,i:integer;beginassign(input,'reverse.in');reset(input);assign(output,'reverse.out');rewrite(output);read(s1);n:=length(s1);if s1[1]='-' thenbegins2:='-';for i:=1 to n-1 dos1[i]:=s1[i+1];delete(s1,n,1);end;n:=length(s1);for i:=1 to n dos3:=s3+s1[n-i+1];i:=1;while(s3[i]='0')and(length(s3)>1) do delete(s3,1,1);write(s2+s3);close(input);close(output);end.2．统计单词数(stat.cpp/c/pas)【问题描述】一般的文本编辑器都有查找单词的功能，该功能可以快速定位特定单词在文章中的位置，有的还能统计出特定单词在文章中出现的次数。

现在，请你编程实现这一功能，具体要求是：给定一个单词，请你输出它在给定的文章中出现的次数和第一次出现的位置。

注意：匹配单词时，不区分大小写，但要求完全匹配，即给定单词必须与文章中的某一独立单词在不区分大小写的情况下完全相同（参见样例1），如果给定单词仅是文章中某一单词的一部分则不算匹配（参见样例2）。

【输入】输入文件名为stat.in，2 行。

第 1 行为一个字符串，其中只含字母，表示给定单词；第 2 行为一个字符串，其中只可能包含字母和空格，表示给定的文章。

【输出】输出文件名为stat.out。

只有一行，如果在文章中找到给定单词则输出两个整数，两个整数之间用一个空格隔开，分别是单词在文章中出现的次数和第一次出现的位置（即在文章中第一次出现时，单词首字母在文章中的位置，位置从0 开始）；如果单词在文章中没有出现，则直接输出一个整数-1。

【输入输出样例1】stat.in stat.outToto be or not to be is a question2 0【输入输出样例 1 说明】输出结果表示给定的单词To 在文章中出现两次，第一次出现的位置为0。

【输入输出样例2】stat.in stat.outtoDid the Ottoman Empire lose its power at that time-1【输入输出样例 2 说明】表示给定的单词to 在文章中没有出现，输出整数-1。

【数据范围】1 ≤单词长度≤10。

1 ≤文章长度≤1,000,000第二题有个陷阱，如果纯粹用字符串的7个操作命令，由于字串很长，后面几个点肯定超时。

第二行的长串可以用字符一个个读。

遇到空格跟上一行的串进行比较。

这样能保证在规定时间内不超时。

var s1,s2:string; ch:char;s,first,n,i,ans:longint;begin assign(input,'stat.in');reset(input);assign(output,'stat.out');rewrite(output);readln(s1); s1:=upcase(s1);first:=-1; n:=length(s1);while not eoln dobegins2:=''; repeatinc(s); read(ch); ch:=upcase(ch);if ch<>' 'then s2:=s2+ch;until (ch=' ')or eoln;if s2=s1 thenif first=-1 thenbeginfirst:=s-n-1;inc(ans);end elseinc(ans);end;if first=-1 then write(-1) else write(ans,' ',first);close(input);close(output);end.3.数字统计(two.pas/c/cpp) 【问题描述】请统计某个给定范围[L, R]的所有整数中，数字2 出现的次数。

比如给定范围[2, 22]，数字 2 在数2中出现了1次，在数12中出现 1 次，在数20 中出现 1 次，在数21 中出现1 次，在数22 中出现2 次，所以数字2 在该范围内一共出现了6次。

【输入】输入文件名为two.in。

输入共1 行，为两个正整数L 和R，之间用一个空格隔开。

【输出】输出文件名为two.out。

输出共1 行，表示数字 2 出现的次数。

Two.out【输入输出样例1】two.in2 22 6【输入输出样例2】two.outtwo.in2 100 20【数据范围】 1 ≤L ≤R≤10000。

var a,b,c,d,e,f:integer;beginassign(input,'two.in');reset(input);assign(output,'two.out');rewrite(output);readln(a,b);f:=0;d:=0;for c:=a to b dobegine:=c;repeatd:=e mod 10;e:=e div 10;if d=2 then inc(f);until e=0;end;writeln(f);close(input);close(output);end.输入2 100 输出 20 输入 1 1000 输出 300输入 2222 2223 输出 7 输入 9993 10000 输出 04. 接水问题(water.pas/c/cpp)【问题描述】学校里有一个水房，水房里一共装有m 个龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为1。

现在有n 名同学准备接水，他们的初始接水顺序已经确定。

将这些同学按接水顺序从1到n 编号，i号同学的接水量为wi。

接水开始时，1 到m号同学各占一个水龙头，并同时打开水龙头接水。

当其中某名同学j 完成其接水量要求wj 后，下一名排队等候接水的同学k马上接替j 同学的位置开始接水。

这个换人的过程是瞬间完成的，且没有任何水的浪费。

即j 同学第x 秒结束时完成接水，则k 同学第x+1 秒立刻开始接水。

若当前接水人数n’不足m，则只有n’个龙头供水，其它m−n’个龙头关闭。

现在给出n名同学的接水量，按照上述接水规则，问所有同学都接完水需要多少秒。

【输入】输入文件名为water.in。

第1 行2 个整数n 和m，用一个空格隔开，分别表示接水人数和龙头个数。

第2 行n 个整数w1、w2、……、wn，每两个整数之间用一个空格隔开，wi表示i 号同学的接水量。

【输出】输出文件名为water.out。

输出只有一行，1 个整数，表示接水所需的总时间。

water.out【输入输出样例1】water.in5 344 4 1 2 1【输入输出样例1解释】第1 秒，3 人接水。

第1秒结束时，1、2、3 号同学每人的已接水量为1，3 号同学接完水，4 号同学接替 3 号同学开始接水。

第2 秒，3 人接水。

第 2 秒结束时，1、2 号同学每人的已接水量为2，4 号同学的已接水量为1。

第3 秒，3 人接水。

第 3 秒结束时，1、2 号同学每人的已接水量为3，4 号同学的已接水量为2。

4号同学接完水，5 号同学接替 4 号同学开始接水。

第4 秒，3 人接水。

第 4 秒结束时，1、2 号同学每人的已接水量为4，5 号同学的已接水量为1。

1、2、5 号同学接完水，即所有人完成接水。

总接水时间为 4 秒。

【输入输出样例2】water.in water.out1638 423 71 87 32 70 93 8076【数据范围】1 ≤n ≤10000，1 ≤m≤100 且m≤n；1 ≤wi ≤100。

var a:array[1..101]of integer;b:array[1..10001]of integer;c,d,e,f,g:integer;h:longint;tf:boolean;beginassign(input,'water.in');reset(input);assign(output,'water.out');rewrite(output);fillchar(b,sizeof(b),0);fillchar(a,sizeof(a),0);readln(c,d);for e:=1 to c doread(b[e]);for e:=1 to d doa[e]:=b[e];f:=d; h:=0;repeattf:=true;inc(h);for g:=1 to d dobeginif a[g]>0 then dec(a[g]);while (a[g]=0)and(f<c) do begin inc(f);a[g]:=b[f];end;if a[g]>0 then tf:=false;end;until tf=true;writeln(h);close(input);close(output);end.或constinf='water.in';ouf='water.out';varn,m,i,j,k,tot,min,max:longint;a:array[1..10000] of longint;b:array[1..100] of longint;beginassign(input,inf);reset(input);assign(output,ouf);rewrite(output);readln(n,m);for i:=1 to n do a[i]:=0;for i:=1 to n do read(a[i]);for i:=1 to m do b[i]:=a[i];min:=maxlongint; max:=-maxlongint;if n=m then//如果水管数和人数相等，那么直接输出节水量的最大值就行了 beginfor i:=1 to m doif b[i]>max then max:=b[i];writeln(max);close(input);close(output);halt;end;for i:=m+1 to n dobeginmin:=maxlongint;for j:=1 to m doif b[j]<min thenbeginmin:=b[j];k:=j;//找接水量最小的水管，并记录该水管的位置end;b[k]:=b[k]+a[i];//该水管的接水量+下一个人的接水量end;max:=-maxlongint;for i:=1 to m doif b[i]>max then max:=b[i];//搜一遍，找接水量的最大值writeln(max);close(input);close(output);end.输入10 44 37 71 16 28 34 28 87 39 43 输出 124输入100 2076 26 67 21 73 19 66 23 46 57 63 8 58 65 94 65 96 1 98 52 92 36 28 7 67 94 92 76 85 38 54 88 28 33 33 55 4 94 66 28 69 86 67 98 36 14 94 27 41 59 79 96 96 29 100 52 11 27 60 87 56 54 66 38 52 87 100 82 46 70 52 34 52 65 78 74 35 94 29 84 77 40 86 19 24 79 42 6 32 53 44 85 61 31 99 64 74 61 81 81 输出 331模拟法Var a:array[1..10000] of integer;N,mI,j,k:longint;BeginAssign(input,’water.in’);reset(input);Assign(output,’water.out’);rewrite(output);Readln(n,m);For i:=1 to n doRead(a[i]);For i:=m+1 to n doBeginK:=1;For j:=1 to m doIf a[j]<a[k] then k:=j;Inc(a[k],a[i]);End;K:=1;For i:=1 to m doIf a[i]>a[k] then k:=I;Writeln(a[k]);Close(input);Close(output);End.。