Pascal冲刺练习题
PASCAL练习题-18页word资料
PASCAL练习题PASCAL练习题序号题目难度完成数1计算路程167 2摄氏温度转华氏温度165 3求一元二次方程的根265 4成绩评定266 5商场折扣268 6倒数数列和357 7阶乘和357 8求最大值和最小值362 9菲波拉契数列354 10求素数347 11百钱买百鸡363 12水仙花数362 13计算π的值355 14最大公约数和最小公倍数458 15完数461 16亲密数对455 17奖学金认定259 18计算年龄261 19汽车时速计算353 20猴子吃桃问题454 21验证哥德巴赫猜想435 22钞票兑换344 23成绩评定2225 24聪明的猪414 25插入排序47 26约瑟夫问题516 27不重复的随机数413 28侦察任务310 29猜数游戏218 30因式分解411 31砝码选择34 32电灯开闭36 33追查凶手34 34十进制转二进制315 35分糖216 36贮油点53 37运动会成绩统计45 38等式填空315 39验证尼科彻斯定理410 40回文字符串217 41中缀表达式转后缀表达式57 42二叉树的遍历313 43留学生应会的语言31 44绝对素数20 45互不相同的七位完全平方数30 46求数字的乘积根50 47纯粹素数30 58完全平方数40 49十六进制数转十进制数20 50楼梯的不同走法50 51计数排序30 52厄拉多赛筛法求素数20 53杨辉三角形30 54打印图形20 55扑克分发30 56统计单词个数40 57二叉排序树20 58按比例组数30 59数字三角形40 60最佳字符编码40 1.计算路程【题目描述】从键盘输入速度v和时间t，要求计算路程s。
2.摄氏温度转华氏温度【题目描述】读入摄氏温度c，将它转换成华氏温度f输出，写出程序。
已知：f=9/5*c+32 3.求一元二次方程的根【题目描述】输入a,b,c，求一元二次方程ax2+bx+c=0的根。
pascal语言试题及答案
pascal语言试题及答案1. Pascal语言的创始人是谁？- A. Dennis Ritchie- B. Bjarne Stroustrup- C. Niklaus Wirth- D. Guido van Rossum答案： C2. 以下哪个选项不是Pascal语言的特性？- A. 结构化编程- B. 强类型- C. 面向对象- D. 编译型语言答案： C3. Pascal语言中，用于声明变量的关键字是什么？- A. var- B. let- C. def- D. declare答案： A4. 在Pascal中，以下哪个运算符用于比较两个变量是否不相等？ - A. =- B. <>- C. ==- D. !=答案： B5. Pascal语言中，以下哪个关键字用于定义函数？- A. function- B. procedure- C. define- D. method答案： A6. 在Pascal中，如何声明一个整型数组？- A. var arr: array[1..10] of integer;- B. var arr: integer[1..10];- C. var arr: integer array[1..10];- D. var arr: integer[10];答案： A7. Pascal语言中，以下哪个语句用于循环执行一段代码？ - A. loop- B. repeat- C. while- D. for答案： D8. 在Pascal中，以下哪个关键字用于定义过程？- A. function- B. procedure- C. subroutine- D. method答案： B9. Pascal语言中，以下哪个运算符用于取模运算？- A. %- B. mod- C. div- D. rem答案： D10. 在Pascal中，以下哪个关键字用于定义一个记录类型？ - A. record- B. struct- C. type- D. class答案： A。
pascal练习题2
一、填空题(每空1分，共14分)1如果希望将参数作为过程处理的结果传递至过程外，那么这种参数应作为（变量参数）。
2一个PASCAL程序由程序首部与（分程序）两部分组成，以“.”结束。
【解】答案为：分程序。
正确的PASCAL程序结构是：程序首部分程序.3设有说明var a,b,c,d,e:integer则对于待输入数据12345678执行下列语句后，d=___________。
readln(a,b,d);readln;readln(c,d)【解】第一个读语句读去了2行(第1、2行)第二个读语句读去了1行(第3行)第三个读语句是读第4行上的数据，即：7→C；8→d，因此d=8。
这里要注意readln的作用。
此题的readln若都换成read，情况就不同了。
4动态变量与静态变量的关键区别在于动态变量_____________。
【解】答案为：不需(在分程序的说明部分)明显说明。
分析：动态变量是无法由说明部分明确说明的，它是随机产生的。
5程序中的错误一般分为语义错误、_____________与___________三类。
【解】语法错误。
逻辑错误。
分析：语法错误是指程序或其成分(各说明，语句等)不合乎语法，如实在参数表与相应形参表不一致等。
语义错误是指程序或其成份语义有错，如除法的除数为零等。
逻辑错误是指程序未能真实反映算法，或算法本身就有错误。
例如，把a+b错写成a*b等。
6succ(round(38.5/5))－(ord('D')－ord('A'))mod4=______________【解】正确答案为6。
这里要注意表达式的运算顺序以及succ、ord和mod运算的含义。
7PASCAL语言的标准简单类型是整型、实型、_________与字符型，标准构造类型是_______【解】布尔型(boolean型)正文文件类型(text型)。
此题的标准构造类型容易被忽视，它是用类型标识符text标记的。
PASCAL语言_复习题_FXT352064_1606
《PASCAL》复习题一、选择题1、下面语句中，可以使布尔型变量L的值为真的是___C____：A）L：=TB）L：=‘T’C）L：=TRUED）L：=‘TRUE’（2章赋值语句）2、下面的常量定义中正确的是__C___：A）CONST B) CONSTI=100 OR 200 R:12.5;C) CONST D) CONSTPI=3.14 J:=10（2章常量定义）3、循环语句FOR C:=‘X’DOWNTO ‘Z’DO writeln;的循环次数是___A___：A）0B）1C）2D）3（4章for语句）4、如果输入的数据是2，3，4，则下面程序的输出应为___C_______：PROGRAM SAM(INPUT,OUTPUT);V AR i, x, y:integer;BEGINFOR i:=1 TO 3 DOBEGINRead(x); y:=sqr(x)END;Writeln(‘x=’,x, ‘y=’,y)END.A) x=2 y=4 x=3 y=9 x=4 y=16B) x=4 y=16 x=4 y=16 x=4 y=16C) x=4 y=16D)x=2 y=4 x=2 y=4 x=2 y=4（2,4章for语句）5、选择适当内容填入下面的过程说明中，要求过程SWAP中的形式参数X 为值参，Y为变参____C______PROCEDURE swap( );…………A)CONST x: real;V AL y:realB)CONST x: real;y:realC）X:real;V AR y:realD）X,y:real（5章过程的语法）6、分析下面的一组语句，其中N为整型变量，这组语句执行的结果将输出字符串Good________D___个n:=0;repeatwriteln(‘Good’);n:=n+2;until n=5A)0B) 3C) 5D)无限（4章repeat循环语句）7、根据下面的变量说明V ARM, n, i, j:integer;bool:Boolean;则下面的赋值语句中正确的是______B_______A）m+n:=2*jB）bool:=n=i DIV jC）m=15 MOD 7D）m:=i+j:=n+8（2章赋值语句）8、对于PASCAL语言的记录类型，其开域语句用保留字____D____A)RECORDB)CASEC)WHILED)WITH（9章with 语句）9、设有如下的过程说明PROCEDURE wri;BEGINWriteln(‘Welcome to use pascal!!!’);End;则下面有关过程wri的叙述中正确的是____D_____A)过程说明有错，因为没有形式参数B)过程说明有错，因未说明过程的类型C)过程说明有错，因为在过程体内没有给过程名赋值的语句D)过程说明正确（2章赋值语句）10、已知变量ch是字符型变量，下面PASCAL赋值语句正确的是___D_____A)ch:=’ab cd’;B)ch:=chr(ord(succ(‘c’)+1));C)ch:=ord(‘b ’)+ord(‘a’);D)ch:=pred(succ(succ(‘f’)));（2章赋值语句）11、判断以下叙述，其中正确的是___A_______A) 在pascal程序中所用到的变量必须先说明后使用B) 在pascal程序中,允许使用的最小值是－maxintC) 在pascal程序中,分号是语句的一部分，在每个语句中不能省略D) 在pascal程序中,符号常数的值可根据需要随时修改（1，2章基本知识）12、以下不符合pascal规定的字符常量是___B_________A)‘2’B)‘pascal’C)’’’’D)‘a’（2章标准数据类型）13、以下属非法的pascal用户自定义标识是_____A____A)CONSTB)FORMATC)MAXD)NEXT（1章保留字）14、下面循环语句仅执行一次的是_____A_____A) I:=0; B) I:=0;Repeat while (I<3) doI:=I+1; I:=I+1;Writeln(i) writeln(i);Until I<3C)for I:=0 downto 3 do D) I:=0I:=I+1; while (I>0) or (I<3) doWriteln(i); I:=I+1;writeln(i);（4 章循环结构）15、下面函数首部或过程首部合法的是__B_______A)function sum;B)procedure next;C)function s(V AR s:real):integer;D)procedure f(a,b:real):char;（5章函数与过程）16、以下叙述不正确的是____D__________A)Pascal提供了一些标准函数和过程，用户使用时可直接调用，无需定义B)使用标准函数sin时，每调用一次都能得到唯一的一个值C)标准函数只能出现在表达式中，不能以一个调用语句的形式单独调用D)调用标准函数或标准过程均能通过一个函数名或过程名带回一个结果（5章函数与过程）17、设有过程首部procedure f (V AR x:integer;y:real);若a,b为整型变量，c为实型变量，则合法的过程调用语句是____D_____A)f(2,3)B)f(2,3.0)C)f(a+b,c)D)f(b,2)（4章过程调用语法）18、每个pascal程序都必须包括___D_____A) 常量说明B）类型定义C）变量说明D）程序首部（1章基本知识）19、已知实型变量r的值为32 .635，若要求按32 . 635的形式输出，应使用的写语句是___B__A)writeln(r );B)writeln(r:6:3);C)write(r:5:3);D)writeln(r:5);（2章write语句）20、以下标准数据类型中，____D______ 不能用读语句赋值A）整型B）实型C）字符型D）布尔型（2章基本类型）21、以下程序段共执行_____C______次循环I:=0.5;While I<2.5 doBeginI:=I+0.5;End;A) 1B) 3C) 4D) 5（4章for语句）22、以下pascal程序输出结果是____C______program tea(output);V AR i,j:integer;BeginFor i:=1 to 4 doBeginFor j:=4-i to 1 doWrite(‘*’);Writelnendend.A) * * * B) * C) * D) * ** * * * * * ** * * *（4章for语句,多重循环）23、下面循环语句能构成有限次循环的是____A_______A）I:=5;repeati:=i+1;until I>0B)I:=1;RepeatWriteln(i);Until I>1C)I:=5;While (I>0) doI:=I+1;Writeln(i);D)I:=1;While I<>0 doI:=I+2;Writeln;（4章for,while,repeat 循环语句）24、设a和b为同一类型枚举变量，以下语句合法的是：__A_______A) a:=b;B) read(a,b);C) a:=ord(b);D) writeln(a,b);（6章枚举类型）25、结构化程序的主要优点是（C ）A）程序体积小，节省内存空间B）程序效率高，节省运行时间C）程序结构清晰，可读性高，易维护与修改，可靠性高D）容易实现巧妙的算法（1章概述）26、下列for 循环的次数是（A ）a:=true ; b:=false ;for I:=a to b dowrite(i);A）0 B）1 C）A D）B（4章for语句）27、COS500 +e-X 的正确表达式为（）A）cos (50.0) + exp(-x)B）cos (pi * 50.0/180) + exp(-x)C）cos (3.1416 * 50.0 /180) + exp(-x)D）cos (50.0) + 1.0/exp(-x)（2章表达式）28、一个完整的pascal 程序由程序首部，说明部分及执行部分组成，其说明部分的次序为（ C ）A）常量说明，类型说明，变量说明，标号说明，过程说明B）标号说明，类型说明，变量说明，常量说明，过程说明C）标号说明，常量说明，类型说明，变量说明，过程说明D）类型说明，变量说明，标号说明，过程说明，常量说明（1章概述）29、．Pascal 程序中无序类型是指（A ）A）实型B）字符型C）整型D）布尔型（2章基本类型）30 A ）head …….A)Q^.next:=P^.next; B)q^.next^.next:=next;Dispose(p); dispose(p);C) q^.next:=p; D) p:=q^.next;P^.next:=nil; q^:=p^.next;Dispose(P); p^.next:=q^.next;Dispose(p);（11章链表删除）31、.下列具有输出功能的是_____D______A) Assign B) Input C) Begin D) Write32、当n为任意正奇数时，值总为Ｔtre的表达式是_____D______A) n MOD 2=０B) DIV 2=１C) N-(n DIV 2)=１D) n-Trunc(n/2)*2=133、表达式Pred(Chr(Ord(‘A’)+4))的值是_____B______A) ‘C’ B) ‘D’ C) 69 D) 10134、程序段：FOR i:=1 TO 5 DOFOR j:=2 TO i DOWriteln(‘A’);输出字符Ａ的个数是_____B______A) ５B) 10 C) 15 D) 2035、数学表达式Sin(60o)的正确PASCAL表达式是:______C_______A) Sin(60) B) Sin(3.14159*60)C) Sin(3,14159*60/180.0) D) Sin(60*3.14159/360.0)36、下列属PASCAL合法常数的是: _____A______A) 102 B) 1O.0 C) 35,000,000 D) 1/237、设x是一个实型变量，下面能将x四舍五入使小数部分精确到百分之一的PASCAL表达式是:_____A______A) Round(x*100.0)/100.0 B) Round(x/100,0)*100.0C) Trunc(x*100.0)/100.0 D) Trunc(x/100.0)*100.038、一个文件文件的基类型不可以是_____A______A) 文件B) 数组C) 实数D) 记录数组39、下列表达式中正确的是_____B______A) 8/2 MOD 2 B) NOT(1=0) AND(3<>2) C) ’a’+2 D) 2+False40、不能作为FOR语句循环控制变量的是下列哪种类型变量_____C______A) 整型B) 布尔型C) 实型D) 字符型二、填空题1、下面程序依次读入一个字符,以与读入相反的次序,建立以HEAD为头的单向链表,直到读入’!’为止。
Pascal集训队选拔赛试题
成功学校集训队选拔赛试题第二轮1. Cantor表（cantor.pas/c/cpp）【问题描述】现代数学的著名证明之一是Georg Cantor证明了有理数是可枚举的。
他是用下面这一张表来证明这一命题的：我们以Z字形给上表的每一项编号。
第一项是1/1，然后是1/2，2/1，3/1，2/2，…【输入】整数N（1≤N≤10000000）【输出】表中的第N项【样例输入】7【样例输出】1/4- 1 -2. 回文数（huiwen.pas/c/cpp）【问题描述】若一个数（首位不为零）从左向右读与从右向左读都一样，我们就将其称之为回文数。
例如：给定一个10进制数56，将56加56（即把56从右向左读），得到121是一个回文数。
又如：对于10进制数87：STEP1：87+78 = 165 STEP2：165+561 = 726STEP3：726+627 = 1353 STEP4：1353+3531 = 4884在这里的一步是指进行了一次N进制的加法，上例最少用了4步得到回文数4884。
写一个程序，给定一个N（2<=N<=10，N=16）进制数M，求最少经过几步可以得到回文数。
如果在30步以内（包含30步）不可能得到回文数，则输出“Impossible！”【输入】两行，第一行N（2<=N<=10，N=16），表示进制；第二行M。
【输出】一行，STEP=最少的步数【样例输入】87【样例输出】STEP=43. 装箱问题（pack.pas/c/cpp）【问题描述】有一个箱子容量为v(正整数，o≤v≤20000)，同时有n个物品(o≤n≤30)，每个物品有一个体积(正整数)。
要求从n 个物品中，任取若千个装入箱内，使箱子的剩余空间为最小。
【输入】第一行，一个整数，表示箱子容量；第二行，一个整数，表示有n个物品；接下来n- 2 -行，分别表示这n个物品的各自体积。
【输出】一个整数，表示箱子剩余空间。
NOIP初赛模拟试题(Pascal语言提高组)
NOIP初赛模拟试题（Pascal语言提高组）一、单项选择题（共10题，每题1.5分，共计15分。
每题有且仅有一个正确答案。
）1.建立了计算机最主要的结构原理的人是（）。
A.图灵B.比尔·盖茨C.冯·诺伊曼D.克拉拉·丹E.哥德尔2.设a、b、c是三个布尔型(boolean)的变量，则表达式(a∨b)∧(b∨c)∧(c∨a)∧(a∧a)∧(b∧b)的值（）。
A.始终为trueB.始终为faleC.当且仅当c为true时为faleD.当且仅当a与b均为true时为trueE.依赖于a、b、c三者的值3.设a、b为两个浮点(float)型变量，下面的表达式中最有可能为真的是（）。
A.a=bB.a某a+2某a某b+b某b=(a+b)某(a+b)C.(a+b)某(a-b)+b某b-a某a<0.0001D.a/b=1/(b/a)E.qrt(a)某qrt(b)=qrt(a某b)4.下面的数据中，在编程中用长整型(longint)表示最恰当的是（）。
A.宇宙中的原子数目B.一头大象的体重（用吨表示）C.姚明的身高（用厘米表示）D.一个山村的准确人口数E.从现在（2006年）到2022奥运会开幕的倒计时秒数5.一个三叉树（即每个节点最多有三个孩子）中，有k个孩子的结点数目表示为S(k)，则下列关系一定成立的是（）。
A.S(0)=2某S(3)+S(2)-1B.S(0)>3某S(3)+2某S(2)-1C.S(0)<3某S(3)+2某S(2)+1D.S(0)<2某S(3)+S(2)E.S(0)<=3某S(3)+2某S(2)6.佳佳在网上购买了一个空间，建设了一个网站。
那么，他向网站上上传网页时最有可能采用的网络协议是（）。
A.72B.843C.112.5minD.3h48min16E.超过24小时8.假设用双核CPU运行我们平常编写的信息学竞赛程序，相对于同等规格的单核CPU而言，运行时间（）。
pascal练习2
p1(a DIV b,b) END. 执行上面程序后的输出结果是（ ） （A） 5 13 （B）5 13 （C）5 13 （D）5 13 18 23 18 5 18 5 18 23 1 14 1 13 1 14 1 13 7．假设主程序的说明部分并列说明了两个过程 outer1 和 outer2, 过程 outer1 内的说明部分又说明了过程 inner,下列正确的调用规则为（ （A） outer1 可以调用 inner （B）inner 可以调用 outer1 （C） 程序可以调用 inner （D）outer2 可以调用 inner 8．有以下程序，程序运行结果是（ ）。 PROGRAM tmp(input,output); VAR x:integer; PROCEDURE b; VAR x:integer; BEGIN Writeln(x:1); x:=2; writeln(x:1) END; BEGIN x:=1; b; Writeln(x:1) END. （A）6155（随机数） （B）1 （C）6155（随机数） （D）1 2 2 2 2 1 1 2 2 9．PROGRAM PRO(input,output); VAR r,s,t:integer; PROCEDURE CHANGE(a,b:integer); VAR t:integer; BEGIN a:=3*a; b:=2*b; t:=a+b END; BEGIN r:=2; s:=4; t:=6; CHANGE(r,s); Writeln(‘r=’,r,’s=’,s,’t=’,t) END. 程序运行结果是（ ）
三、写出下列程序的运行结果。 1．PROGRAM main(input,output); VAR s,n:integer; PROCEDURE p1; VAR i:integer; BEGIN s:=0; FOR i:=0 TO n DO s:=s+1 END; PROCEDURE p2; VAR j:integer; BEGIN n:=1; FOR j:=1 TO s DO n:=n*j END; BEGIN n:=2; p1; writeln(‘s=’,s); p2; writeln(‘n=’,n); p1; writeln(‘s=’,s); END. 2．PROGRAM EX(output); VAR x,y,z:integer; PROCEDURE P(x,y:integer;VAR z:integer); BEGIN z:=y-x-z; END; BEGIN x:=5; y:=7; :integer); BEGIN IF n>2 THEN DB(n DIV 2); Write(n MOD 2:1) END; 主程序用 DB(12)调用上述过程，输出的正确结果：
pascal 练习题
pascal 练习题Pascal练习题Pascal是一种流行的编程语言，被广泛应用于科学计算、算法设计和软件开发等领域。
为了提高编程能力和熟练掌握Pascal语言的特性，练习题是一种非常有效的学习方法。
本文将介绍一些Pascal练习题，并探讨它们的解决方法和应用场景。
一、计算圆的面积和周长编写一个Pascal程序，根据用户输入的半径，计算并输出圆的面积和周长。
这个练习题可以帮助我们熟悉Pascal的基本语法和数学计算。
解决这个问题的关键是理解圆的面积和周长的计算公式，并正确地应用到程序中。
二、查找最大值和最小值给定一个整数数组，编写一个Pascal程序，找出数组中的最大值和最小值，并输出它们。
这个练习题可以帮助我们熟悉Pascal的数组操作和条件判断。
解决这个问题的关键是遍历数组，比较每个元素的值，并使用变量记录最大值和最小值。
三、猜数字游戏编写一个Pascal程序，实现一个猜数字的游戏。
游戏开始时，随机生成一个0到100之间的整数，玩家需要通过输入猜测的数字来猜出正确的答案。
程序会根据玩家的猜测给出提示，直到猜对为止。
这个练习题可以帮助我们熟悉Pascal的随机数生成和条件判断。
解决这个问题的关键是使用随机数生成器生成一个随机数，并与玩家的猜测进行比较。
四、斐波那契数列编写一个Pascal程序，计算并输出斐波那契数列的前N项。
斐波那契数列是一个非常经典的数列，每一项都是前两项的和。
这个练习题可以帮助我们熟悉Pascal的循环和递归。
解决这个问题的关键是使用循环或递归的方式计算数列的每一项，并将结果输出。
五、排序算法给定一个整数数组，编写一个Pascal程序，实现排序算法对数组进行排序，并输出排序后的结果。
常见的排序算法包括冒泡排序、插入排序和快速排序等。
这个练习题可以帮助我们熟悉Pascal的排序算法和数组操作。
解决这个问题的关键是理解排序算法的原理和实现方式，并正确地应用到程序中。
练习题不仅可以帮助我们巩固Pascal语言的知识，还可以提高我们的编程能力和解决问题的能力。
pascal编程练习题[终稿]
![pascal编程练习题[终稿]](https://img.taocdn.com/s3/m/024aa42c590216fc700abb68a98271fe910eafb3.png)
1、扫描识别SCAN.BAS/SCAN.PAS/SCAN.C/SCAN.CPP【问题描述】“扫描识别”你知道是怎么回事吧？它的意思就是：先用扫描仪把纸上的文字扫描成一个图片，再用识别软件把那个图片中的文字识别出来，最后生成一个文本文件。
这对于需要把大量的纸稿录入成电子文档的人来说，当然是非常方便的。
以现有的技术，扫描效果是比较理想的，但识别效果还不十分另人满意，经常会出现错误，尤其是当两个字形状特别接近的时候，而且，这种错误是很难用眼睛看出来的。
我们的纸稿上有一个数字串，识别之后得到的字符串保存在输入文件中，这个串可能有识别错误。
已知，可能出现的错误有如下几种：1、把数字0错误地识别为大写字母O；2、把数字1错误地识别为小写字母l；3、把数字2错误地识别为大写字母Z；4、把数字5错误地识别为大写字母S；5、把数字6错误地识别为小写字母b；6、把数字8错误地识别为大写字母B；7、把数字9错误地识别为小写字母q。
你的改正方案是：如果字符串中出现了上述字母，请替换为原来的数字。
最后把改正之后的数字串输出。
【输入文件】文件名：SCAN.IN文件中只有一个字符串，表示识别后得到的字符串。
串的长度不超过100。
【输出文件】文件名：SCAN.OUT文件中只有一个数字串，表示改正后的数字串。
【样例输入】321lO88BqS【样例输出】32110888952、寻找2的幂CLOSE.BAS/CLOSE.PAS/CLOSE.C/CLOSE.CPP【问题描述】数学上把叫2的幂，如4、8、16 32等。
给定一个整数，请输出距离它最近的那个2的幂是多少。
如果有两个距离相同，输出那个小的。
【输入文件】文件名：CLOSE.IN文件中只有一个整数。
数据范围<=1000000000000000【输出文件】文件名：CLOSE.OUT文件中只有一个整数，表示距离最近的那个2的幂。
【样例输入】17【样例输出】163、循环的零（3.pas）请编程求1×2×3×……×N所得的数末尾有多少个0？（N由键盘输入 N〈10000〉【输入样例】：10【输出样例】：24、小青蛙回来了IAMBACK.BAS/IAMBACK.PAS/IAMBACK.C/IAMBACK.CPP【问题描述】关于小青蛙爬井的故事，你应该早就听过了：井深10尺，小青蛙从井底向上爬，每个白天向上爬3尺，每个晚上又滑下来2尺，然后问你第几天它能爬上来。
10个pascal程序设计练习题
说明：本练习题一共10题，均选自正式考试题目，有较高的难度，供给大家参考使用。
有的是需要大家读懂程序，写出程序运行结果；有的是需要大家把程序补充完整；有的是需要大家自己编写程序。
1、program Program1;var a,b,c,d,sum : longint;beginread(a,b,c,d);a := a mod 23;b := b mod 28;c := c mod 33;sum := a * 5544 + b * 14421 + c * 1228 - d;sum := sum + 21252; sum := sum mod 21252;if (sum = 0 ) then sum := 21252;writeln(sum);end.输入：283 102 33 20输出__838___2、program progam1;varu: array [0..3] of integer;a, b, c, x, y, z: integer;beginread(u[0], u[1], u[2], u[3]);a := u[0] + u[1] + u[2] + u[3] - 5;b := u[0] * (u[1] - u[2] div u[3] + 8);c := u[0] * u[1] div u[2] * u[3];x := (a + b + 2) * 3 - u[(c + 3) mod 4];y := (c * 100 - 13) div a div (u[b mod 3] * 5);if((x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2;z := (a + b + c – x - y) * 2;writeln(x + y - z);end.输入：2 5 7 4输出： 263 。
3、varn : longint;function g(k : longint) : longint;beginif k <= 1 then g := kelse g := (2002 * g(k - 1) + 2003 * g(k - 2)) mod 2005;end;beginread(n);writeln(g(n));end.输入：2005输出：34、.Program ex402;constm:array[0..4] of integer=(2,3,5,7,13);var i,j:integer; t: longint; beginfor i:=0 to 4 do begint:=1;for j:=1 to m[i]-1 do t:=t*2;t:=(t*2-1)*t; write (t,' '); end;writeln;end.输出:___33550336 13_5、念数字：编一个“念数字”的程序，它能让计算机完成以下工作：当你输入一个０至99之间的数后，计算机就会用汉字拼音印出这个数的念结束。
pascal提高题
四、编程提高题232、给出一个自然数N（1<=N<=15，且N为奇数），要求找出这样的N个连续的正整数，使得前(N+1)/2个正整数的平方和，等于后（N-1）/2个正整数的平方和。
例如：当N=5时满足条件的5个正整数为：10，11，12，13，14且102+112+122=132+142输入：Ｎ输出：满足条件的Ｎ个正整数234、给出一个正整数N（N<=32767)，要求将其分解成质因子的连乘积。
例如：当N=24时结果为：24=2*2*2*3（A）又如；当N=13时输出结果为：13=13 （B）输入：N输出：如（A）或（B）格式的结果235、输入N和一组整数（以0结束），N表示编号1，2，…，N的箱子，一组整数表示零件的重量（单位为G）。
现要求将一批零件，分别装入编号为1，2，…，N的N只箱子中去，装入的方法是：0G< 零件重量<100G 装入1号箱100G<=零件重量<150G 装入2号箱150G<=零件重量<200G 装入3号箱…………以此类推。
装完之后，要求找出哪只箱子中的零件个数最多，若有相同的最多则要求全部列出（仅列出箱子的号数即可），若因零件太重无箱子可装，也应输出这类零件的个数。
236、编制一个乘法运算的程序从键盘读入2个100以内的正整数，进行乘法计算并输出。
例如：输入格式：89 ，13 又如:输出格式：89 输入格式：16，8×13 输出格式：16267 ×8890 1281157237、输入三个自然数N，I，J（1<=I<=N,1<=J<=N）。
N表示有一个N行N列的棋盘格子，（I，J）表示棋盘中格子的位置。
如：N-4，I-2，J-3表示了棋盘中的第二行第三列的格子。
如下图：的值，输出与格子（I ，J ）在同一行、同一列、同一对角线上的所有各自位置。
例如：当N=4，I=2，J=3时，输出的结果是： （2，1）（2，2）（2，3）（2，4） {同一行上格子的位置} （1，3）（2，3）（3，3）（4，3） {同一列上格子的位置} （1，2）（2，3）（3，4） {左上到右下对角线上的格子位置} （4，1）（3，2）（2，3）（1，4） {左下到右上对角线上的格子位置}238、问题描述：给出一个正整数N （1≤N ≤100），即可得到一个由N 个正整数组成的从1开始的如下数列：1，2，3，4，……N-2,N-1,N ，且可求出从1开始的这N 个数的全部各个数位上的数字之和。
pascal100练习题
Pascal练习题100道1 题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？var i,j,a,b,c:integer;beginfor i:=1 to 4 dofor j:=1 to 4 dofor a:=1 to 4 dofor b:=1 to 4 dobeginif (i<>j) and (i<>a) and (i<>b) and (j<>a) and (j<>b) and (a<>b) then writeln(i,j,a,b);end;end.2 题目：企业发放的奖金根据利润提成。
利润(i)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润i，求应发放奖金总数？vara:longint;s:real;beginreadln(a);if a<100000 then s:=a*0.1;if a>100000 thenbeginif (a>100000) and (a<=200000) then s:= s + (a-100000)*0.075 + 100000*0.1;if (a>200000) and (a<=400000) then s:=s+(a-200000)*0.05+100000*0.1+100000*0.075;if (a>400000) and (a<=600000) then s:=s+(a-400000)*0.03+100000*0.1+200000*0.05;if (a>600000) and (a<=1000000) thens:=s+(a-600000)*0.015+100000*0.1+200000*0.05+200000*0.03;if (a>1000000) thens:=s+(a-1000000)*0.01+100000*0.1+200000*0.05+200000*0.03+400000*0.015;end;writeln(s:5:2);end.3 题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？var i:longint;a,b:real;beginfor i:=1 to 1000000 dobegina:=sqrt(i+100);b:=sqrt(i+268);if ((a*a)=(i+100)) and ((b*b)=(i+268)) then writeln(i);end;end.4 题目：输入某年某月某日，判断这一天是这一年的第几天？var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a,b,c,d:integer;beginread(a,b,c);a1:=0;a2:=31;a3:=59;a4:=90;a5:=120;a6:=151;a7:=181;a8:=212;a9:=243;a10:=273;a11:=304;a12: =334;if (b=1) then d:=a1 elseif (b=2) then d:=a2 elseif (b=3) then d:=a3 elseif (b=4) then d:=a4 elseif (b=5) then d:=a5 elseif (b=6) then d:=a6 elseif (b=7) then d:=a7 elseif (b=8) then d:=a8 elseif (b=9) then d:=a9 elseif (b=10) then d:=a10 elseif (b=11) then d:=a11 elseif (b=12) then d:=a12;d:=d+c;if (a mod 1000=0) and (c mod 400=0) and (b>3) then d:=d+1;if (a mod 1000<>0) and (c mod 4=0) and (b>3) then d:=d+1;writeln(d);end.5 题目：输入三个整数x,y,z，请把这三个数由小到大输出。
NOIP(Pascal提高组)重点试题(四)
NOIP(Pascal提高组)重点试题（四）【一】单项选择题1.与16进制数 A1.2等值的10进制数是〔〕A.101.2 B.111.4 C.161.125 D.177.252.一个字节〔byte〕由〔〕个二进制组成。
A.8 B.16 C.32 D.以上都有可能3.以下逻辑表达式的值恒为真的是〔〕。
A.P∨〔┓P∧Q〕∨(┓P∧┓Q)B.Q∨〔┓P∧Q〕∨〔P∧┓Q〕C.P∨Q∨〔P∧┓Q〕∨〔┓P∧Q〕D.P∨┓Q∨〔P∧┓Q〕∨(┓P∧┓Q)4.Linux下可执行文件的默认扩展名是( )。
A. exe B. com C. dll D.以上都不是5.假如在某个进制下等式7*7=41成立，那么在该进制下等式12*12=〔〕也成立。
A. 100B. 144C. 164D. 1966.提出“存储程序”的计算机工作原理的是〔〕。
A. 克劳德•香农B.戈登•摩尔C.查尔斯•巴比奇D.冯•诺依曼7.前缀表达式“+ 3 * 2 + 5 12 ”的值是〔〕。
A. 23 B. 25 C. 37 D. 658.主存储器的存取速度比中央处理器(CPU)的工作速度慢的多，从而使得后者的效率受到妨碍。
而依照局部性原理，CPU所访问的存储单元通常都趋于一个较小的连续区域中。
因此，为了提高系统整体的执行效率，在CPU中引入了( )。
A.寄存器 B.高速缓存 C.闪存 D.外存9.完全二叉树的顺序存储方案，是指将完全二叉树的结点从上到下、从左到右依次存放到一个顺序结构的数组中。
假定根结点存放在数组的1号位置上，那么第k号结点的父结点假如存在的话，应当存放在数组中的〔〕号位置。
A. 2k B. 2k+1 C. k/2下取整 D. (k+1)/210.以下竞赛活动中历史最悠久的是〔〕。
A. NOIP B.NOI C. IOI D. APIO【二】不定项选择题1.元素R1、R2、R3、R4、R5入栈的顺序为R1、R2、R3、R4、R5。
Pascal练习题及答案
一、熟悉Pascal的集成环境，了解主菜单的各项功能二、完成下面程序的输入、编译、运行、保存，并注意观察程序的运行结果1、程序代码如下：program exe1 (input ，output) ；varh ，k ：integer ；beginfor h ：＝ 1 to 8 do beginwrite( ' '：20-h)；for k ：＝1 to 2*h-1 do write(' * ')；writeln；end；end.2、编程计算半径为R的圆的面积和周长程序代码如下：Program Exe2；{程序首部}Const Pi=3.14Var R，S，C: Real；{变量说明部分}BeginWrite ('R=')；{提示输入半径}Readln(R)；{输入半径值}S:=Pi*R*R；｛利用圆面积公式s=Πr2面积｝C:=2*Pi*R；｛利用圆周长公式c=2πr求周长｝Writeln('S='，S)；{输出结果}Writeln('C='，C)；Readln；｛等待输入回车键｝End.3、编程在屏幕上显示‚Hello World!‛。
程序代码如下：Program exe3;BeginWriteln( ‘ Hello World!’);Readln;End.4、下面是一道猜数的趣味程序，程序运行后，由计算机随机地产生一个100以内的整数，用户有十次猜数的机会，并且计算机会根据你猜的数给你相应的提示。
程序代码如下：program caishu (input ，output) ；varx，n，k ：integer；beginrandomize；x：＝random( 100) ；repeatwrite('Please input a number(0- 100) : ' ) ；readln( k) ；n：＝n+l;if k=x then writeln( 'You are right ! ')；if k>x then writeln( 'Too big. Please try again! ' ) ；if k<x then writeln( 'Too small. Please try again! ') ；until (k=x) or (n= 10) ；if ( n=10) and ( k<>x) then writeln( ' You are fail. The number is ：' ，x) ；end.三、上机时要注意的操作步骤四、练习：工人每工作一小时可得工资80元，求工作130小时的工资。
Pascal 语言练习题
Pascal 语言练习题一、Pascal 语言1. Pascal语言规定,程序一律以保留字___________开始,作为程序标志。
5. 结构化程序设计的3种基本结构是_________、_________、_________。
9. 表达式PRED(CHR(ORD(′E′)+1))的值为___________。
11. 将一万分之一写成Pascal数的形式应为___________。
14. Pascal语言的数据类型按其特点可分3大类,即_____________类型,___________类型和___________类型。
15. 将65526.0034写成Pascal数的形式应为___________。
22. 表达式ORD(′6′)>=ORD(6)的值是___________。
二、基本语句和顺序结构1. 请写出把256.0赋给整型变量I的赋值语句是___________。
2. 设I为整型变量,L为布尔型变量(l:boolean),odd函数是判断一个数是否为奇数，如odd(5)=true,语句L:=ODD(I) OR ODD(I+1);执行后L的值为___________。
3. 以下程序的运行结果为___________。
PROGRAMEX(OUTPUT);VARA,B,C,N,SUM:INTEGER;BEGINN:=126;A:=N DIV 100;B:=(N-A*100) DIV 10;C:=N-A*100-B*10;SUM:=A+B+C;WRITELN(′SUM=′,SUM:3)END.4. 有以下程序:PROGRAM P1(input,output);VAR ch:char;BEGINREADLN(ch);writeln(pred(pred(ch)),pred(ch),ch,succ(ch) ,succ(succ(ch)))END.假设输入字母C,则输出为___________。
6. 表达式trunc(-sqrt(sqr(17 MOD 5)*2*(15 DIV 2)+sqr(1／2)))的值是__________。
重庆市信息技术会考题(Pascal部分复习资料)
重庆市信息技术会考题（Pascal 部分复习资料）一、填空题1、Sqrt（4）的值为（2.0 ）（保留一位小数）。
2、‘A > ‘a'的值为（false ）。
3、下列标识符哪个是合法的？（ A ）A.x1 B.a（c） C.var D.1234、Pascal 语言中的赋值号为（:= ）。
5、用Pascal 语言表达式表示x 为偶数（odd（x）=false ）。
6、Ord（37）的值为（37 ）。
7、-15 Mod 4 的值为（-3 ）。
8、已知Chr（97）的值为字母a,则Chr（100）的值为字母（d ）。
9、Turbo Pascal 7.0 中，Integer 类型的取值范围为（-32768 ）到32767。
10、Pascal 语言中, 实现循环结构的语句主要有（For ）语句, While 语句和Repeat 语句。
11 、16 Div 5 的值为（3 ）。
12、Odd（24）的值为（false ）。
13、用Pascal 语言表达式表示I 被J 整除（I mod J=0 ）。
14、机器语言仅由0 和（1 ）两个代码组成。
15、Round（9.5）的值为（10 ）。
16、用Pascal语言表达式表示X<0或X>=10（x<0 or x>=10 ）。
17、Int（24.9）的值为（24 ）。
18、所谓复合语句，就是指用（begin ）和End括起来的多条语句的统称。
19、Trunc（12.3）的值为（12 ）。
20、b2-4ac 的Pascal 语言表达式为（b*b-4*a*c）。
21、Pascal 语言中,循环体至少执行一遍的循环语句是（repeat ）语句22、Round（10.4）的值为（10 ）。
23、1/3a 的Pascal 语言表达式为（1/3*a ）。
24、Pascal 语言中,实现计数循环一般用（For ）语句。
25、用Pascal语言表达式表示K a< 10（a>=1 and a<=10 ）。
pascal练习3
PASCAL练习题（3）姓名班级1、下列语法正确的关系表达式是。
（）A. 1<x<20B. ‟243‟>200C. 11.37<=12D. ‟A‟<‟B‟ AND …C‟<‟D‟2、以下运算符优先级最高的是。
（）A. <=B. ORC. +D. DIV3、设有说明：CONST M=2；N=4；C1=R；C2=S；请选出值为False的表达式：（）A. C2=‟S‟B. 2*M+NC. Ord(C1)+1>Ord(C2)D. M MOD N=ME. NOT (C1=C2)F. Pred(Succ(C1))>=C14、若已知A=1.0，B=2.0,下面运行的结果是。
（）PROGRAM TT (INPUT,OUTPUT);VAR A,B,C:Real; A. 3.0BEGIN B. 2.0Readln(A,B); C. 1.0If A>B then D. –1.0Writeln(A);ElseC:=B-A;Writeln(C);End.5、当X在5<X<=21和60<=X AND <80范围内时Y为True，否则Y为False的表达式是。
（）A． If (x>5) And (x<=21) Or (x>=60) And (x<80) Then Y:=True Else Y:=False;B. If (x>5) Or (x<=21) Or (x>=60) Or (x<80) Then Y:=True Else Y:=False;C. If (x>5) And (x<=21) And (x>=60) And (x<80) Then Y:=True Else Y:=False;D. If x>5 And x<=21 Or x>=60 And x<80 Then Y:=True Else Y:=False;6、分析下面程序段，执行后所得到的输出是。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
8、 找 字 符 （ fch）
【问题描述】
有一天，小明编了一个程序，能很快找出一个字符串中出现次数最多的字符，你能
做到吗？
输入：一个字符串（长度不超顺序，显示出现次数最多的字符
样例
【 输 入 格 式 】： ACABBCCDDB
【 输 出 格 式 】： CB
3、求素数 计 算 机 发 明 之 前 ，数 学 家 们 需 要 手 工 进 行 数 学 计 算 。遇 到 复 杂 计 算 往 往 要 花 去
大量时间，而且正确率也不高。现在可不一样了，有了计算机人们能快速而正确地 求解数学问题。小雪是个中学生，可已经能熟练的运用计算机编写程序了。为了提 高 自 己 的 计 算 机 水 平 ，小 学 经 常 将 数 学 老 师 布 置 的 题 目 用 计 算 机 加 以 求 解 。有 一 次 ，
数学老师提出这样一个问题：对于给定的一对自然数 m 与 n (m n) 在 m 与 n 之间 （包含 m 和 n ）有多少素数呢？小雪很快得出了答案。现在请你也编写程序实现。
（1 不为素数）
输入：文件的第一行为一个数 k ，表示有 k 对自然数。以后 k 行每行有两个自然数， 第一个自然数为 m ，第二个自然数为 n 。
7、 搬 砖 头 （ rock） 小可可一直对中国五千年的古老文明非常感兴趣，学习历史知识之余，他报名参加 了 少 年 考 古 队 ，跟 随 正 式 的 考 古 队 进 行 考 古 发 掘 ，通 过 实 践 来 更 好 的 领 会 书 本 知 识 。 这次考古队发现了一个非常巨大的古墓，具有非常高的考古价值，小可可随队来到 了考古现场。经过紧张的发掘，古墓的墓道终于显露出来，但是它被一块块方砖封 住了，现在小可可的任务就是帮助考古队将这些方砖移走，打通墓道。由于这些保 存完好的古代方砖也是珍贵的文物，所以规定一次最多只能搬三块砖。小可可在搬 砖的过程中一直在思考一个问题，他很想知道将这些砖头搬走共有多少种不同的搬 法。 例如，现在总共有 4 个砖头，那么可以选择的方法有以下 7 种： 1，1，1，1（分 4 次搬完，每次搬一个砖头） 1，2，1（分 3 次搬完，第一次搬一个，第二次搬两个，第三次搬一个） 1，1，2（分 3 次搬完，第一次搬一个，第二次搬一个，第三次搬两个） 2，1，1（分 3 次搬完，第一次搬两个，第二次搬一个，第三次搬一个） 2，2（分 2 次搬完，第一次搬两个，第二次搬两个） 1，3（分 2 次搬完，第一次搬一个，第二次搬三个） 3，1（分 2 次搬完，第一次搬三个，第二次搬一个） 输入：共一行。是一个 1～1000 的正整数 N，表示共有Ｎ块砖头。 输出：共一行。输出一个正整数表示 N 块砖头移动的方法数。 输 入 ：（ rock.in）： 4 输 出 ：（ rock.out）： 7
【输入格式 1】 3 246 【输出格式 1】 10 （ 解 释 ： 2 + 4 = 6， 4 + 6 = 10, 其 中 6 和 10 都 是 “ 质 数 ”， 但 是 要 输 出 最 大 的 。） 【输入格式 2】 3 2 6 10 【输出格式 2】
-1 （ 解 释 ： 2 + 6 = 8 , 2 + 10 = 12, 6 + 10 = 16， 这 三 个 和 都 不 是 “ 质 数 ”， 所 以输出-1）
5、 拆 分 整 数 (cfnum) 【问题描述】 输 入 一 个 正 整 数 N（ 不 超 过 一 百 位 ），如 果 N 是 偶 数 ，则 拆 分 N 的 各 个 数 字 相 加 求 和 ； 如果 N 是奇数，则拆分 N 的各个数字相乘求积。 输入输出样例：
【 输 入 格 式 】： 126 【 输 出 格 式 】： H＝ 9 【 输 入 格 式 】： 123 【 输 出 格 式 】： J＝ 6 数据范围： 30%的 数 据 在 二 十 位 以 内 ； 100%的 数 据 在 一 百 位 以 内
你 住 在 （ 1， 1） 处 ， 而 学 校 在 （ a,b ） 处 ， 你 骑 自 行 车 去 上 学 ， 自 行 车 只 能 沿 着 街
道走，而且为了缩短时间只允许沿着东北等方向行驶。
现在有 N 个交叉路口在施工（X1,Y1）,(X2,Y2),(Xn,Yn),这些路口暂时不能通车
的。问你上学有多少种走法？
【样列输入输出格式】
Route.in
10、 上 学 路 线 （ route） 【问题描述】
你所在的城市街道好像一个棋盘，有 a 条南北方向的街道和 b 条东西方向的街 道。 南北方向 a 条街道从西到东一次编号为 1 到 a 而东西方向的 b 条街道从南到北一次 编号为 1 到 b,南北方向的街道 i 和东西方向的街道 j 的交点记为（i,j）.
9. 双胞胎的烦恼(twins.bas/ twins.pas/ twins.c) 【问题描述】 有 一 对 双 胞 胎 （ 哥 哥 和 妹 妹 ）， 关 系 特 别 好 ， 什 么 事 都 相 互 谦 让 。 唯 独 每 年 到 他 们 生日的那天，他们就会或多或少的有一些不愉快，渐渐的，成了他们的烦恼。 事情是这样的。每年到他们过生日的时候，亲朋好友都会给他们送来礼物，表示祝 贺。有的人给他们买同样的礼物，有的人买不一样的礼物。每件礼物都有相应的价 值。送礼物的人都没有明确说哪个礼物给谁，作为两个双胞胎，他们都希望自己收 到的礼物价值高些。这不，今年生日所有的朋友送的礼物都是 2 本书（可能是希望 他 们 好 好 读 书 吧 ）， 一 本 给 哥 哥 ， 一 本 给 妹 妹 。 为 了 减 少 矛 盾 ， 双 胞 胎 的 妈 妈 让 你 来 帮 忙 分 配 ，要 求 使 得 两 人 所 获 得 书 本 的 价 值 和 之 间 的 差 距 尽 可 能 的 小（ 差 距 越 小 ， 双 胞 胎 之 间 的 不 愉 快 程 度 越 低 ）。 例 如 ，有 4 个 人 送 礼 物 ，每 个 人 的 礼 物 价 值（ 两 个 数 ）用 一 对 括 号 括 起 来 表 示 ，如 ： (3,5),(7,11),(8,8),(2,9),可以把 3,7,8,2 分配给妹妹， 其余的给哥哥，价值差 为：5+11+8+9-3-7-8-2=13；也可以把 3，7，8，9 给妹妹，其余的给哥哥，价值差 为 ： 3+7+8+9-5-11-8-2=1， 这 是 最 好 的 方 案 。 【输入文件】 第一行包含一个整数 N(1≤N≤30),表示礼物的数量，接下来 N 行，每行两个整数， 表示每份礼物两本书的价值(价值范围在 1 到 30 之间)。 【输出文件】 输出一个非负整数，表示最小的价值差。 【样例输入】 4 35 7 11 88 29 【样例输出】 1
【输入格式】
第一行包含两个整数 a 和 b，并且满足 1≦a，b≦16.
第 二 行 包 含 一 个 整 数 N， 表 示 有 N 个 路 口 在 维 修 （ 1≦ N≦40）。
接下来 N 行，每行两个整数 X_i,Y_i,描述路口的位置。
【输出格式】
输出一个整数表示从（1，1）到（a，b）的行车路线总数。
输出：依次输出每一对数之间的素数个数。每个结果占一行。 例如： 输入:
2 15 10 20 输出: 3 4
4、 偶 数 世 界 (even) 【问题描述】 假想我们生活在偶数世界里，在这个世界中只有正偶数。下面就是这个世界中数的 集合:Z = {2, 4, 6, 8, 10 ……}；在偶数世界中，除法有它特殊的规则，如果数 a 能被数 b 整除，那么 a 除以 b 的商也一定是个偶数。例如 2 能整除 8, 因为 2 * 4 = 8。但是 2 却不能整除 6，因为 2 * 3 = 6。3 是 6 除以 2 的商，但是它不是偶数。 对于一个数来说，如果没有任何一个比它小的偶数能够整除它，那么它就是偶数世 界 中 的 “ 质 数 ”。 下 面 是 几 个 从 小 到 大 排 列 的 “ 质 数 ”： 2, 6, 10, 14, 18, 22, 26, 30 …… 现在给你 n ( 2 <= n <= 10 ) 个偶数世界中的数, 每个数都不大于 1000 且没有任 何 两 个 数 相 同 。 请 问 在 这 组 偶 数 中 ， 是 否 存 在 两 个 数 的 和 是 上 面 所 描 述 的 “ 质 数 ”。 如 果 存 在 不 止 一 对 数 的 和 是 “ 质 数 ”， 那 么 请 输 出 那 个 最 大 的 “ 质 数 ”。 如 果 不 存 在 任 何 一 对 数 的 和 为 “ 质 数 ”， 则 输 出 -1。 每组数据的第一行为 n，第二行为 n 个偶数世界中的数，用空格隔开。 对 于 每 组 数 据 你 只 需 要 输 出 那 个 由 任 意 两 个 数 的 和 组 成 的 最 大 “ 质 数 ”； 如 果 没 有 ， 则输出-1。
中等（10 题）：
6、 逃 亡 的 准 备 (hallows) 【问题描述】 Harry Potter 他们一起逃亡，现在有许多的东西要放到赫敏的包里面，但是包的大 小有限，所以我们只能够在里面放入非常重要的物品，现在给出该种物品的数量、 体积、价值的数值，希望你能够算出怎样能使背包的价值最大的组合方式，并且输 出这个数值，赫敏会非常地感谢你。 【 输 入 文 件 】（ hallows.in） （1）第一行有 2 个整数，物品种数 n 和背包装载体积 v。 （2）2 行到 n+1 行每行 3 个整数，为第 i 种物品的数量 m、体积 w、价值 s。. 【 输 出 文 件 】（ hallows.out） 输出文件 hallows.out 仅包含一个整数，即为能拿到的最大的物品价值总和。 【输入样例】 2 10 343 225 【输出样例】 13 【注释】 选第一种一个，第二种两个。 结果为 3*1+5*2=13
2、 整 数 处 理 （ integ） 【问题描述】
电脑老师让小明编程做一道题：输入一个正整数 A（A≦100000000）,如果 A 的 个位数字是 5，则统计 A 能被 5 整除多少次？否则，统计 A 当中含有多少个“0”？ 你能做吗？