当前位置：文档之家 › noip普及组复赛答案

noip普及组复赛答案

  • 格式：docx
  • 大小：15.59 KB
  • 文档页数：16

noip普及组复赛答案【篇一：noip普及组复赛入门测试(答案+测试数据)】class=txt>新龟兔赛跑比赛即将举行，此次龟兔赛跑比赛的规则与以往有所不同，不再考察兔子和乌龟谁在最短的时间内跑完规定的路程，而是考察谁在规定时间内跑的路程更长，且兔子和乌龟跑步都是匀速的。

由于兔子的坏习惯，它总喜欢把比赛的总时间t小时中的k小时拿来睡觉。

现在给你比赛的总时间t、兔子的睡觉时间k、兔子的速度u、乌龟的速度v，需要你求出该次比赛谁最后获胜。

输入第一行为一个整数x，表示有x组输入数据。

每组数据只有一行，包括4个数t、k、u、v (1 ≤ t≤ 300，0 ≤ k ≤ t，1 ≤ u ≤ 100，1 ≤ v ≤ 100)。

对于每组数据，输出只有一个数，如果兔子获胜则输出-1，如果乌龟获胜则输出1，如果同时到达则输出0。

允许输入一组数后立即输出对应的结果。

样例输入：21 12 16 2 6 3样例输出：1-1varv,u,t,k,n,i:integer;beginreadln(n);for i:=1 to n do beginreadln(t,k,u,v);if v*tu*(t-k) then writeln(1);if v*tu*(t-k) then writeln(-1);if v*t=u*(t-k) then writeln(0);end;end.1、输入：26 2 6 28 6 8 2输出：-12、输入：2300 280 60 20120 0 12 13输出：113、输入：3100 20 50 30100 50 45 25100 80 27 17输出：-1114、输入：3150 77 29 23127 11 22 13139 22 13 7输出：1-1-1二、小球路程（文件名：xqlc.pas ）已知小球从100米高度自由下落，落地后反弹起，又落地，又弹起，??。

每次弹起的高度都是上一次高度的一半。

求小球第n次反弹起的高度和球在整个过程所经过的路程（包括下落和反弹），用键盘输入n，输出反弹高度和经过路程，结果保留两位小数。

输入输出示例：输入：2输出：25.00225.00var n,b:integer;s,h:real;begin readln(n);h:=100;for b:=1 to n do begins:=s+h;h:=h/2;s:=s+h;end;writeln(h:0:2);writeln(s:0:2);end.三、商品编码（文件名：spbm.pas）某种商品编码是一个由13位数字组成的可识别的编码。

通过对这些编码数字使用一种计算方法可以检验输入的数字是否正确。

这种称为13位数字的“1-3和”的计算方法是，从第一位开始乘1，每个数字交替乘以1和3，然后算出相加的和。

例如，9780921418948的“1-3和” 的计算如下：9*1+7*3+8*1+0*3+9*1+2*3+1*1+4*3+1*1+8*3+9*1+4*3+8*1=120要求输入商品编码，计算对应的“1-3和”。

样例输入：9780921418948样例输出：120varc:char;s,i,n,m:integer;begins:=0;for i:=1 to 13 do beginread(c);if i mod 2=1 then m:=1 else m:=3s:=s+m*(ord(c)-48);0 ascii 码48end;writeln(s);end.输入 1234567890123 输出 95 输入 1230145678922 输出 94输入 3309890786442 输出 139 输入 9978564578341 输出 156四、寻找x的幂（文件名xzxdm.pas）数学上把x的k次方叫x的k次幂，如4的3次幂为4自乘3次。

给定一个整数n，请输出距离它最近的那个x的幂是多少。

如果有两个距离相同，输出那个小的。

输入整数x（2 ≤ x ≤ 5）和n（10 ≤ n ≤ 20000），输出一个整数，表示距离最近的那个x的幂。

样例输入：2 17样例输出：16varn,x,tp,tp1:integer;beginreadln(x,n);tp:=x;repeattp:=tp*x; 幂until tpn;tp1:=tp div x;if tp-n=n-tp1 then writeln(tp1)else writeln(tp);end.1、输入：3 80输出：812、输入：5 625输出：6253、输入：4 12288输出：163844、输入：2 5768输出：4096五、表达式计算（文件名bds.pas）输入一个正整数n（1≤n≤500），求s=1+2-3+4+5-6+7+8-9+??+n，并统计其中共有多少个减号。

输入只有1行，一个正整数n。

输出文件也只有一行,二个整数，中间用空格隔开，分别表示s的值和减号的个数。

样例：输入： 15输出：30 5vari,s,k,n:longint;beginreadln(n);s:=0 ; k:=0;for i:=1 to n doif i mod 3=0 then begink:=k+1 ; s:=s-i;endelse s:=s+i;writeln(s, ,k);end.输入 45 输出 315 15 输入 500 输出 42084 166输入 200 输出 6834 66 输入 139 输出 3244 46六、有趣的质数（文件名：yqdzs.pas）小明发现了一个有趣的现象，有些数字（例如：2333）本身是个质数，将末尾数去掉后发现它仍然是质数，依此类推，一直到第一位仍是质数（含1）。

现在给定m和n的值（mn≤30000），求在这个范围内有多少个这种数字。

输入输出示例：输入：50 100输出：5说明：五个符合的质数是53、59、71、73、79。

varn,m,i,a,j,t:longint;f:boolean;beginread(n,m);for i:=n to m do begina:=i;f:=true;repeatfor j:=2 to trunc(sqrt(a)) doif a mod j=0 then f:=false;a:=a div 10;until (a=0) or (f=false);if f then inc(t);end;writeln(t);end.输入5 257输入 50 150032输入 9000 11000 输出 0输入 29000 29500 输出 1七、素数算式（文件名：ssss.pas ssss.bas在下面的算式中每个“#” 都表示一个素数数字。

##*#ssss.lgo）【篇二：noip普及组复赛模拟试题23(答案)】lass=txt>给出用等号连接的两个整数，如“1234＝127”。

当然，现在这个等号是不成立的。

题目让你在左边的整数中间某个位置插入一个加号，看有没有可能让等号成立。

以上面的式子为例，如果写成123+4=127，这就可以了。

请你编写一个程序来解决它。

input 只有那个不相等的式子。

已知，等号两边的整数都不会超过 200000000000。

output 如果存在这样的方案，请输出那个正确的式子。

如果不存在解决方案，请输出“impossible!”（引号中的部分）。

sample input 1234=127sample output 123+4=127program ex1075;var i,len,p:integer;a1,a2,b:longint;st,st1,st2,st3:string;beginreadln(st);p:=pos(=,st);st1:=copy(st,1,p-1);delete(st,1,p);val(st,b,x);len:=length(st1);for i:=1 to len-1 dobeginst2:=copy(st1,1,i);val(st2,a1);st3:=copy(st1,i+1,len-i);val(st3,a2);if a1+a2=b then begin writeln(a1,+,a2,=,b);exit; end;end;writeln(impossible!)end.输入 45789=5793输出 4+5789=5793输入 34345678932=343456821输出 343456789+32=343456821输入 123456789=12345输出impossible!1985764235=1985999输出 1985764+235=1985999给若干个字符串，判断该字符串最多重复了几次，比如，给ababab，结果是3，因为ab重复了3次，因为求最多重复了几次，所以结果不是1，在比如abcdabcd结果是2，abcd结果是1.输入一组字符串，以“。

”作为结束标志。

样例输入1aaaa abcd。

样例输出 41varp:array[0..1000000]of longint;s:ansistring;procedure work;vari,j:longint;beginfillchar(p,sizeof(p),0); j:=0;fori:=2 to length(s) do{自己和自己匹配} beginwhile (j0)and(s[j+1]s[i])do j:=p[j];ifs[j+1]=s[i] then inc(j); p[i]:=j;end;if(length(s)mod(length(s)-p[length(s)])=0)and(length(s)(length(s)-p[length(s)]))then writeln(length(s) div (length(s)-p[length(s)])){p数组的应用使得求解方便得很。

} elsewriteln(1);end;beginreadln(s);whiles. do begin work; readln(s);end;end.输入xyzxyzteateatecatcatcat.输出 213输入 yyyyuyyyyyyyteletele.输出172【题目描述】蚊子最近经常做噩梦，然后就会被吓醒。

这可不好。

疯子一直在发愁，然后突然有一天，他发现蚊子其实就是害怕某些事。

如果那些事出现在她的梦里，就会害怕。

我们可以假定那个害怕的事其实是一个字符串。

而她做的梦其实也是一个字符串。

她可以一个晚上一直做梦，所以梦这个字符串会很长，如果其中包含了她所害怕的事情，那么她这天晚上就会害怕。

当然一个害怕的事也可能在这天晚上被她梦到很多遍，当然每个晚上也可能有很多种害怕的事都被梦到。

合集下载

noip普及组复赛模拟试题10答案

noip普及组复赛模拟试题10答案

【试题描述】选拔考试即将开始，同学们陆续进入考场，哇，考场好大啊。

究竟star应该坐在哪张位置呢？考场门口贴了一张考场座位（m*n）明细表，其中考场里的有些位置是坏的不能坐，考号为1的同学的座位号是第一排第一列，即他的座位是1、1，2号同学的座位是1、2，以此类推，当然，如果某个座位是坏的，那么这个同学就往后延一个座位，后面的同学再依次排下去。

考场座位肯定够所有考生坐。

【输入描述】第1行：3个整数，m,n,k(m,n表示考场的座位是m行n列，k表示star的考号)m,n<=100;第2..m+1行：每行n个数代表考场明细0代表座位是好的，1代表座位是坏的）【输出描述】一行：两个整数代表star应该坐的位置【输入样例】4 4 50 0 0 00 0 1 00 0 0 10 0 0 0【输出样例】2 1【试题来源】常州长训班测试program ex1661;var k,i,j,s,m,n:integer;a:array[1..100,1..100] of 0..1;beginreadln(m,n,k);for i:=1 to m dofor j:=1 to n doread(a[i,j]);s:=0;for i:=1 to m dofor j:=1 to n dobeginif a[i,j]<>1 then inc(s);if s=k then begin writeln(i,' ',j); exit;end;end;end.输入 6 6 70 0 0 0 1 00 0 1 0 0 00 0 0 1 1 00 0 0 0 0 11 0 0 0 0 00 0 1 0 0 1 输出 2 2输入8 6 100 0 0 0 1 00 0 1 0 0 00 0 0 1 1 00 0 0 0 0 11 0 0 0 0 00 0 1 0 0 10 1 0 0 0 01 0 0 0 0 1输出 2 6【题目描述】一个农夫有n（n≤1000）头奶牛，可由于产奶太少，他决定把当天产奶最少的牛杀掉，但他有点舍不得，如果当天不只一头奶牛产奶，至少他便放过它们。

noip普及组复赛模拟试题12答案

noip普及组复赛模拟试题12答案

【试题描述】读入二行整数，然后程序要完成如下的操作：第一步将2行数合并在一起，第二步将合并好的数由大到小排序，第三步重新排列，从第一个数起开始编号，然后将奇数号上的数（样例中的13，9，5）从前向后排，偶数号上的数（样例中的12，7，4）从后往前排。

第四步计算，将排好的数，第一个+第二个数的2倍+第三个数的3倍+…第五步：输出计算的结果。

【输入描述】第一行是一个整数 n(1≤n≤10)，第二行有n个整数，整数范围在1~100之间，数与数之间空格隔开。

第三行是一个整数 m(1≤m≤10)，第四行有m个整数，整数范围在1~100之间，数与数之间空格隔开。

【输出描述】一个整数（最后计算的结果）。

【输入样例】412 4 5 9213 7【输出样例】 169【解题提示】样例说明：第一步合并后为：12 4 5 9 13 7第二步上例中的数成为：13 12 9 7 5 4第三步得到：13 9 5 4 7 12第四步计算后为：13+2×9+3×5+4×4+5×7+6×12=169最后输出 169【试题来源】 2008年江苏省小学生信息学（计算机）奥赛program ex1731;var m,n,i,j,s,t,b1,b2:integer;a,b,c:array[1..20] of integer;sum:longint;beginreadln(n);for i:=1 to n do read(a[i]);readln(m);for i:=1 to m do read(a[i+n]);s:=m+n;for i:=1 to s-1 dofor j:=i+1 to s doif a[i]<a[j] then begint:=a[i];a[i]:=a[j];a[j]:=t;end;b1:=0;b2:=0;for i:=1 to s doif i mod 2=1 then begin inc(b1); b[b1]:=a[i];endelse begin inc(b2); c[b2]:=a[i];end;for i:=1 to b1 do a[i]:=b[i];for i:=1 to b2 do a[b1+i]:=c[b2-i+1];sum:=0;for i:=1 to s dosum:=sum+i*a[i];writeln(sum);end.输入 615 34 25 9 22 39423 17 46 57输出1496输入1015 34 25 9 22 39 47 12 33 99823 17 46 57 51 8 38 64输出5687SHLQSH数问题描述：我们把t1 , t2 (包括t1 , t2 (1<=t1<t2<=10000000))之间的所有数的约数个数和n称为t1 , t2的shlqsh数;问题是给出数据t1 , t2后,求t1 , t2的shlqsh数；输入输入文件shlqsh.in 仅包含一行，共有两个整数，表示t1 t2 (用空格分开)输出输出文件shlqsh.out 仅有一个整数，表示t1 , t2之间的shlqsh数。

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

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

Description 给定整数n(32位以内),判断它是否为2的方幂。

是就输出'yes'，否则输出'no'。

Input 一个整数n。

Output 一个字符串Sample Input 4Sample Output yesHintn > 0 && ( ( n & ( n - 1 ) ) == 0貌似是数学问题，套用了提示program ex1560;var n:longint;beginreadln(n);if (n>0) and (n and (n-1)=0) then write('yes') else write('no'); end.输入 127 输出 NO 输入 262144 输出 YES 输入 68719476736 输出 YES问题描述：计算机软件版本通常被用来区分某种软件在不同时间的发布。

大部分软件版本号都是用“.”分隔的非负数的序列。

对两个不同的版本A = a1.a2.a3…an和B = b1.b2.b3…bm，如果下面两个条件之一成立，我们认为版本A要比版本B新：1．对某个i，我们有：对所有j < i, ai > bi 和aj = bj；2．n比m大，而且对所有i < m, ai = bi。

(ai和bi都不超过LONGINT)在这个问题里，你要对给定的一组版本号，按照上面的定义从旧到新排序。

输入文件（VERSIONS.IN）：输入文件第一行是一个整数N（N<=20），表示要排序的版本数。

接下来的N行每行一个版本号。

每个版本号是长度不超过50的字符串。

输出文件（VERSIONS.OUT）：将排好序的结果以每行一个版本号输出。

输入输出样例：VERSIONS.IN43.0.512.42.4.6VERSIONS.OUT12.42.4.63.0.5var n,i:integer;scan:array [1..30] of string;function check(aa,bb:string):boolean;vara,b:longint;i,j:integer;code:integer;beginaa:=aa+'.'; bb:=bb+'.';i:=pos('.',aa); j:=pos('.',bb);while (i>0) and (j>0) do beginval(copy(aa,1,i-1),a,code);val(copy(bb,1,j-1),b,code);if a<b then exit(true);if a>b then exit(false);delete(aa,1,i);delete(bb,1,j);i:=pos('.',aa);j:=pos('.',bb);end;if (i=0) and (j>0) then exit(true) else exit(false); end;procedure qsort(l,r:integer);vari,j:integer;t:string;beginif l>=r then exit;i:=random(r-l)+l;t:=scan[i];scan[i]:=scan[l];i:=l;j:=r;repeatwhile (i<j) and (check(t,scan[j])) do dec(j);if i=j then break; scan[i]:=scan[j];while (i<j) and (check(scan[i],t)) do inc(i);if i=j then break; scan[j]:=scan[i];until i=j;scan[i]:=t;qsort(l,i-1);qsort(i+1,r);end;beginreadln(n);for i:=1 to n do readln(scan[i]); qsort(1,n);for i:=1 to n do writeln(scan[i]); end.输入73.0.5.11.02.22.2.62.2．83.0.5.43.0 输出1.02.22.2.62.2．83.03.0.5.13.0.5.4输入1211.0.21.0.36.23.43.4.222.12.1.43.4.14.24.2.2输出 11.0.21.0.322.12.1.43.43.4．13.4.24.24.2.26.2输入正整数N、M，求N÷M的值。

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

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

军方截获的信息由n（n<=30000）个数字组成，因为是敌国的高端秘密，所以一时不能破获。

最原始的想法就是对这n个数进行小到大排序，每个数都对应一个序号，然后对第i个是什么数感兴趣，现在要求编程完成。

【输入格式】第一行n，接着是n个截获的数字，接着一行是数字k，接着是k行要输出数的序号。

【输出格式】k行序号对应的数字。

【输入样例】Secret.in5121 1 126 123 73243【输出样例】Secret.out7123121program secret;const max=30000;var n,i,x,k:longint;a:array[1..max] of longint;procedure sort(l,r:longint);var i,j,t,mid:longint;begini:=l;j:=r;mid:=a[(l+r)div 2];repeatwhile a[i]<mid do inc(i);while a[j]>mid do dec(j);if j>=i thenbegint:=a[i];a[i]:=a[j];a[j]:=t;inc(i);dec(j)end;until i>j;if l<j then sort(l,j);if i<r then sort(i,r);end;assign(input,'secret.in');assign(output,'secret.out');reset(input);rewrite(output);readln(n);for i:=1 to n do read(a[i]);sort(1,n);readln(k);for i:=1 to k dobeginreadln(x);writeln(a[x]);end;close(input);close(output);end.输入1512 10 36 127 126 123 75 89 101 999 777 654 456 890 134624391014 输出127536127134890输入248 18 12 24 434 10 36 127 126 123 75 89 101 999 777 654 456 890 134 555 221 108 888 65685431920141710 输出2412654656134456108有一只坏的里程表：它总是跳过数字3和数字8。