2014noip复赛模拟练习15(答案).doc

【试题描述】 有一组数（设有N个）。编一程序交换这组数中任意指定的两段。 【输入描述】 一个数N（不超过20个） 一行N个数由空格分开 两个空格分开的数（表示要交换的其中一段） 两个空格分开的数（表示要交换的其中另一段） 【输出描述】 交换后的一行数（中间用空格隔开） 【输入样例】 16 3 6 11 45 23 70 67 34 26 89 90 15 56 50 20 10 3 5 13 15 【输出样例】 3 6 56 50 20 70 67 34 26 89 90 15 11 45 23 10 program ex1146; var i,j,n,k,a1,b1,a2,b2:integer; a,b:array[0..20] of longint; procedure make(x,y:integer); var i:integer; begin for i:=x to y do begin inc(k); b[k]:=a[i]; end; end; begin readln(n); for i:=1 to n do read(a[i]); readln(a1,b1); readln(a2,b2); k:=0; make(1,a1-1); make(a2,b2); make(b1+1,a2-1); make(a1,b1); make(b2+1,n); for i:=1 to n do write(b[i], ); end. 14 2 15 67 89 10 30 54 11 99 77 23 86 47 36 2 5 10 13 Shuchu 2 77 23 86 47 30 54 11 99 15 67 89 10 36 1742年6月7日哥德巴赫写信给当时的大数学家欧拉，正式提出了以下的猜想：任何一个大于9的奇数都可以表示成3个质数之和。质数是指除了1和本身之外没有其他约数的数，如2和11都是质数，而6不是质数，因为6除了约数1和6之外还有约数2和3。需要特别说明的是1不是质数。 这就是哥德巴赫猜想。欧拉在回信中说，他相信这个猜想是正确的，但他不能证明。 从此，这道数学难题引起了几乎所有数学家的注意。哥德巴赫猜想由此成为数学皇冠上一颗可望不可及的“明珠”。 现在请你编一个程序验证哥德巴赫猜想。 【输入描述】 仅有一行，包含一个正奇数n，其中n大于9并且小于10000。 【输出描述】 仅有一行，输出3个质数，这3个质数之和等于输入的奇数。相邻两个质数之间用一个空格隔开，最后一个质数后面没有空格。如果表示方法不唯一，请输出第一个数最小的方案，如果第一个数最小的方案不唯一，请输出第二个数最小的方案。 【输入样例】 2009 【输出样例】 3 3 2003 program ex1309; var n,i,j:integer; function pd(x:integer):boolean; var i:integer; begin i:=2; while (ix) and (x mod i0) do inc(i); if i=x then pd:=true else pd:=false; end; begin readln(n); for i:=2 to n-4 do for j:=2 to n-4 do if pd(i) and pd(j) and pd(n-i-j) then begin write(i, ,j, ); write(n-i-j); exit; end; end. 输入2013 输出 3 7 2003 11 （2 2 7）9999 （3 23 9973） 2008北京奥运会之前，很多人想成为四川汶川的一名火炬手，经过层层选拔，终于到了最后一关，这一关是一道很难的题：任意给定一个正整数N，求一个最小的正整数M，使得N×M的十进制表示形式里只有1和0。 【输入格式】只有一行，输入一个整数N。(m，N≤100000) 【输出格式】输出一行，如果有解，输出最小的M，否则输出”No Solution” 【样例输入】 12 【样例输出】 925 Var a:array[1..20]of longint; n,t,i,j:longint;s:qword; Begin readln(n); for i:=1 to 120000 do begin j:=0;t:=i;s:=0; while t0 do begin in