Pascal百题练习
pascal练习题
1.测定素数(check.pas/c/cpp)*【描述】输入n个数，测定他们是不是素数【输入格式】两行，第一行为n，第二行有n个数（Xi），数与数之间用空格分开。
（1≤N≤1000）；（1≤Xi≤5000000）【输出格式】一行n个true或false，输出对应的数字是否是素数（TRUE和FALSE之间用空格隔开）【输入样例】59988123【输出样例】FALSE FALSE FALSE TRUE TRUE2.校门外的树(tree.pas/c/cpp)【描述】某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是1米。
我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L 的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。
由于马路上有一些区域要用来建地铁。
这些区域用它们在数轴上的起始点和终止点表示。
已知任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。
现在要把这些区域中的树（包括区域端点处的两棵树）移走。
你的任务是计算将这些树都移走后，马路上还有多少棵树。
【输入格式】输入文件tree.in的第一行有两个整数L（1<=L<=10000）和M（1<=M<= 100），L代表马路的长度，M代表区域的数目，L和M之间用一个空格隔开。
接下来的M行每行包含两个不同的整数，用一个空格隔开，表示一个区域的起始点和终止点的坐标。
【输出格式】输出文件tree.out包括一行，这一行只包含一个整数，表示马路上剩余的树的数目。
【样例输入】5003150300100200470471【样例输出】298【数据限制】对于20%的数据，区域之间没有重合的部分；对于其它的数据，区域之间有重合的情况。
3.排队接水（water.pas/c/cpp）【描述】有n个人在一个水龙头前排队接水，假如每个人接水的时间为Ti，请编程找出这n个人排队的一种顺序，使得n个人的平均等待时间最小。
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编程基础练习题
![[计算机]pascal编程基础练习题](https://img.taocdn.com/s3/m/c2dcf1e9c5da50e2534d7f87.png)
pascal编程基础练习题一、不定项选择和填空题１、下列关于程序语言的叙述，不正确的是（）Ａ、编写机器代码不比编写汇编代码容易Ｂ、高级语言需要编译成目标代码或通过解释器解释后才能被CPU执行Ｃ、同样一段高级语言程序通过不同的编译器可能产生不同的可执行程序Ｄ、汇编代码可被CPU直接运行Ｅ、不同的高级语言语法略有不同２、下列哪一种程序设计语言是解释执行的（）Ａ、PascalＢ、GWBASICＣ、C++Ｄ、FORTRAN３、解释程序的功能是（）Ａ、将高级语言程序转换为目标程序Ｂ、将汇编语言程序转换为目标程序Ｃ、解释执行高级语言程序Ｄ、解释执行汇编语言程序４、下列中没有语法错误的PASCAL程序首都是（）Ａ、PROGRAM A1;Ｂ、PROGRAM A1(0utPut)Ｃ、PROGRAM (Input,OutPut);Ｄ、PROGRAM A1(Input OutPut);５、结构化程序的结构由三种基本结构组成，下面哪个不属于这三种基本结构（）Ａ、顺序结构Ｂ、输入输出结构构Ｃ、分支结构Ｄ、循环结构６、Pascal程序必须包括（）Ａ、程序首部、说明部分、语句部分Ｂ、程序首部、说明部分Ｃ、说明部分、语句部分Ｄ、程序首部、语句部分７、标准Pascal程序说明部分的正确顺序是（）Ａ、LABEL—CONST—V AR—TYPEＢ、V AR—CONST—LABEL—TYPE Ｃ、LABEL—CONST—TYPE—V ARＤ、CONST—V AR—TYPE—LABEL８、下面对Pascal程序组成结构的描述错误的是（）Ａ、程序体可以为空Ｂ、程序的注释部分只能写在程序中一条语句的最后Ｃ、程序首都的参数部分可有可无Ｄ、一个完整的PASCAL程序的主程序只能有一个９、要编写并执行—个PASCAL程序，—般的步骤是（）Ａ、①用编辑软件编写源程序②用PASCAL的编译程序把源程序转换成目标程序③用连接程序把目标程序转换为可执行程序④运行可执行程序Ｂ、①用编辑软件编写源程序②修改和调试源程序③用PASCAL的编译程序把源程序转换成可执行程序④运行可执行程序Ｃ、①用编辑软件编写源程序②用连接程序把源程序转换成可执行程序③试运行可执行程序④修改后再运行可执行程序Ｄ、①用编辑软件编写源程序②用连接程序把源程序转换为目标程序③用PASCAL的编译程序把目标程序转换为可执行程序④运行可执行程序１０、PASCAL源程序中不止确的注释语句是（）Ａ、用一对“{”和“}”括起来的字符串Ｂ、用一对“/*”和“*/”括起来的字符串Ｃ、用—对“(*”和“*)”括起来的字符串Ｄ、A) 或B)１１、以下正确的PASCAL实数是（）Ａ、0.56E2.5Ｂ、2.56E2Ｃ、.318E1Ｄ、34.E5Ｅ、E5Ｆ、3E-5Ｇ、.15Ｈ、15.１２、每个Pascal程序的分程序中都必须包括（）Ａ、变量说明、语句Ｂ、语句Ｃ、类型定义、变量说明、语句Ｄ、常量说明、变量说明、语句１３、下列中合法的Pascal标识符是（）Ａ、Char setＢ、RECORDＣ、AbsＤ、πＥ、A1B2C3 Ｆ、FOR Ｇ、2ab Ｈ、a[1]１４、设a、b、c为整型变量，并有以下程序段Read(a);Readln(b,c);Readln(c,b);Readln(a,b);writeln(a,b,c)若运行时输入：123＜ENTER＞456＜ENTER＞789＜ENTER＞其中＜ENTER＞表示回车符，则输出是（）Ａ、123Ｂ、147Ｃ、784１５、下列表达式中，其值为TRUE的是（）Ａ、150>=150Ｂ、100>150Ｃ、Abs(-200)<>200Ｄ、S ucc('A')<Succ('a')Ｅ、'ab'<'abc'Ｆ、Succ(False)=True Ｇ、0dd(35+1)=FaLse Ｈ、219<> 219１６、有变量说明：V AR i1,i2:Integer;r1,r2:Real;b1,b2:Boolean;设各变量均已赋值，下列中错误的赋值语句是（）Ａ、b2:=Ord(r1>r2)Ｂ、i2:=i1+r1Ｃ、b1:=i1=i2 Ｄ、b1: =b1+b2Ｅ、i2:=i1+i2 DIV i1Ｆ、i1:=i1/i2Ｇ、r2:=3/5*Sqr(r1+r2)Ｈ、r1:=r 2+r1１７、下面一段程序是用（）)语言书写的int funcl (int n){int i,sum=0;for (i = 1;i＜=n;i++)sum+= i*i;return sum;}Ａ、FORTRANＢ、PASCALＣ、CＤ、PROLOGＥ、BASIC１８、设全集E={1，2，3，4，5}，集合A={1,4}，B={l，2, 5}，C={2，4)，则集合(A∩B)∪～C为（）Ａ、空集Ｂ、{1}Ｃ、{3，5}Ｄ、{1，5}Ｅ、{1，3，5}１９、运算17 MOD 4的结果是（）Ａ、7Ｂ、3Ｃ、1Ｄ、4２０、已知a、b、c、d、e、f、g均为整数变量，其值分别为2、4、6、8、10、12、14，若输出结果为2 4681012 14则输出语句应是（）Ａ、Write(a:3,b:3);write(c:3,d:3,e:3);Write(f:3,g:3)Ｂ、Writeln(a:3,b:3);Write(c:3,d:3,e:3);Writeln(f:3,g:3)Ｃ、Writeln(a:3,b:3);Writeln(c:3,d:3,e:3);Writeln;Writeln(f:3,g:3);Ｄ、Write(a:3,b:3);Writeln;Write(c:3);Writeln(f:3,g:3);Write(f:3,g:3)２１、把整数7转换为字符‘7’的表达式是哪一个（）Ａ、Chr(7)-0rd('0')Ｂ、Chr(7-0rd(0))Ｃ、Chr(7+0rd('0'))Ｄ、Chr(7 +0rd(0))２２、下列类型定义中，合法的是（）Ａ、TYPE a=10..10;Ｂ、TYPE b=0..Sqr(10);Ｃ、TYPE c=1.0..10.0;Ｄ、TYPE d=10..5;２３、以下运算符中运算优先级最高的是（）Ａ、＋Ｂ、ORＣ、>=Ｄ、DIV２４、已知有如下说明：V ARa,b:Integer;c,d:Real;下面赋值语句合法的是（）Ａ、c:=a+bＢ、a:=Trunc(c)Ｃ、a:=a+b/cＤ、b:=a div d２５、设有变量说明：V AR s:(C,G,A,J,K);则函数Succ(A)的取值是（）Ａ、GＢ、3Ｃ、JＤ、B２６、表达式True AND NOT Odd(-202)<(7-3<=4)的值是（）Ａ、TrueＢ、FalseＣ、0Ｄ、1２７、下列常量说明中合法的是（）Ａ、CONST color=red..blue;Ｂ、CONST CONST=10*5;Ｃ、CONST x1:=3.9;Ｄ、CONST abc='abc';２８、已知a、b、c、d是同类型简单变量，且都已有互不相同的值，执行下列语句b:=a;a:=c;d:=a;d:=b;后，其值相等的变量是（）Ａ、a,dＢ、a,cＣ、c,bＤ、b,d２９、下面合法的常量是（）Ａ、.25Ｂ、"RED"Ｃ、'%'Ｄ、3E-2.5３０、设a、b、c、d、e均为整型变量，且s=13、b=2、c=10、d=3、e=2，则表达式a-b*c DIV d MOD e的值是：（）Ａ、13Ｂ、-7Ｃ、11Ｄ、0。
Pascal百题练习
1、有一数字如下：65436543654365436543………循环排列，（1）输入一个数字n，输出第n个数字。
如输入3则输出为4，输入1则输出为6。
（2）输入一个数字n,在屏幕上输出如题数字，每行30个数字。
(3)输入一个数字n，输出所有数字4所在的位数。
如输入15，输出4所在的位置，即3 7 11 152、有一字符串如下：EDCBAEDCBAEDCBA……..循环排列，(1)输入一个整数n，输出第n位字符。
如输入3输出为C，输入1则输出为E。
(2)输入一个整数n，在屏幕上输出如题字母，每行30个字母。
(3)输入一个数字n，输出所有1-n范围内字母C所在的位数,场宽4。
如输入15，输出D所在的位置，即2 7 123、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。
否则输出‟Error‟,即错误。
如输入a则输出为A，如输入为B则输出为b，如输入9则转成整数9并输出。
（提示：‟a‟≤小写字母≤‟z‟，‟A‟≤大写字母≤‟Z‟）4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出FALSE。
5、输入三个数，按从大到小的顺序输出。
如，输入15 20 16 ，输出为20 16 156、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。
如，输入315，输出531。
7、输入四个整数，输出四个数中的最大值和最小值。
（分两行输出）8、输入一个秒数，转换成小时、分、秒并输出。
如输入4500，输出为1:15:0。
9、有鸡兔同笼，现发现有头30个脚90只，试编程算出鸡兔各多少只并输出。
10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有32块糖，请编程算出原来每位好友各有多少糖块。
第2讲_pascal练习题
Pascal基本类型及表达式练习题姓名：张佳昱序号： 52 得分：一、选择题1、人们把以 A 为硬件基本部件的计算机称为第三代计算机。
A 晶体管B 中小规模集成电路C 大规模集成电路D ROM 和RAM2、新一代计算机最突出的特点是 A 。
A 采用大规模集成电路B 具有智能C 具有超高速D 能理解自然语言3、计算机和其他一切计算工具最本质的区别是 A 。
A 能自动运行B 存储容量大C 高精度和高速度D 具有逻辑判断功能4、计算机用于水电站厂房的设计属于计算机 B 。
A 自动控制B 辅助设计C 数值计算D 人工智能5、第一代计算机主要特征是逻辑部件采用 D 。
A 电子管B 晶体管C 中小规模集成电路D 大规模和超大规模集成电路6、根据计算机所采用的逻辑部件，目前计算机所处的时代是 D 时代。
A 电子管B 晶体管C 集成电路D 超大规模集成电路1、判断下列选项哪几个不是算术表达式（假设变量都已经被定义） AF 。
A） x B） 5+x C） 1.5+sqr(x) D） 5=4.3+0.7E） 100 F） x>y G） 5*sqrt(x)+4*abs(x)*exp(6+x)2、若要交换变量A和B的值，下列正确的语句组是 C 。
A） A:=B;B:=C;C:=A; B） C:=A;A:=B;B:=C;C） A:=B;B:=A; D） C:=A;B:=A;B:=C;3、已知R1，R2是实型变量，A，B是整型变量，下面正确的语句是 C 。
A） R1+1:=R2+A MOD B； B） R2:=R2+1；C） R1:=R2-A/B DIV （A-B）； D） A:=B+1.04、下列语法正确的关系表达式是 A 。
A） 1<x<20 B）’243’>200C） 11.37<=12 D）’A’<’B’ AND ‘C’<’D’5、以下运算符优先级最高的是 C 。
A） <= B） OR C） + D） DIV6、设有说明：CONST M=2；N=4；C1=R；C2=S；请选出值为False的表达式： CEF 。
PASCAL练习题
1、百钱买百鸡问题。
中国古代数学家张丘建在他的《算经》中提出了著名的“百钱买百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问翁、母、雏各几何？2、求 (34)2121131388553322111++++++++的前二十项的和。
3、计算......2912211611117141211++++++++当第i 项的值<10-4时结束。
4、求s n =a+aa+aaa+aaaa+…+aa...aaa(n 个a)，其中a 是一个由随机数产生的1~9(包括1、9)之间的一个正整数，n 是一个由随机数产生的5~10(包括5、10)之间的一个数。
显示a 和n ，并求s n 。
5、输出下列图形。
1222333334444444555555555666666666667777777777777888888888888888999999999999999996、输出下列图形。
AAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBCCCCCCCCCCCCCCDDDDDDDDDDDDEEEEEEEEEEFFFFFFFFGGGGGGHHHHII7、我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。
8、键入一个字符串（串长不超过20），输出相应字符组成的等边三角形。
如：输入：“CHINA ”输出：9、数的统计。
一个数“含有0”是指这个数至少有某一位数字为0。
小明对那些“含有0”的自然数很感兴趣，想挑出来进行研究。
那么，1～N 当中“含有0”的自然数有多少个？小明想在1秒钟内得到答案，你能帮他做到吗？输入：N （1≤N ≤100000000）样例输入：105输出：1510、整数排序。
对给定的N （1≤N ≤100）个1到50之间的正整数用一个数组存放后进行从小到大排序，然后再将其中重复出现的数进行删除，只保留一个，使得剩下的数中任何两个都不相同且连续存储在原数组中。
pascal编程练习题
1、输出如下图形。
2、编写一程序，验证角谷猜想。
所谓的角谷猜想是："对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。
经过若干次这样的变换，一定会使n变为1。
"Program ex_2(input,output);3、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。
请你编一个程序计算出这堆零件至少是多少个？4、一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.5、求出能被5整除的所有四位数的和。
Program ex_5(input,output);vari,h:longint;beginfor i:=1005 to 9995 dobeginif i mod 5=0 then inc(h,i);end;write(h);end.6、在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。
□3*6528=3□*8256 这个数为47、有一个三位数，它的各位数字之和的11倍恰好等于自身，请编程求出这个三位数。
8、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。
如:153=13+53+33，所以153是一个水仙花数。
求所有的水仙花数。
Program ex_8(input,output);vara,b,c,d:integer;beginfor d:=100 to 999 do dbegina:=d div 100;b:=d div 10 mod 10 ;c:=d-a*100-b*10;if a*a*a+b*b*b+c*c*c=d then write(d:6);end;end.9、编程序打印出下列图案：(1)平行四边形(2)等腰三解形(3)菱形****** * ******* *** ********* ***** *********** ******* ********* ********* *Program ex9_1(input,output);BeginWriteln(’ * * * * * ’:10);Writeln(’ * * * * * ’:9);Writeln(’ * * * * * ’;8);End,10、编程打印出如下图案：122233333444444455555555511、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元；第三种每套9张，售价2元。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、有一数字如下：65436543654365436543………循环排列，（1）输入一个数字n，输出第n个数字。
如输入3则输出为4，输入1则输出为6。
（2）输入一个数字n,在屏幕上输出如题数字，每行30个数字。
(3)输入一个数字n，输出所有数字4所在的位数。
如输入15，输出4所在的位置，即3 7 11 152、有一字符串如下：EDCBAEDCBAEDCBA……..循环排列，(1)输入一个整数n，输出第n位字符。
如输入3输出为C，输入1则输出为E。
(2)输入一个整数n，在屏幕上输出如题字母，每行30个字母。
(3)输入一个数字n，输出所有1-n范围内字母C所在的位数,场宽4。
如输入15，输出D所在的位置，即2 7 123、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。
否则输出‟Error‟,即错误。
如输入a则输出为A，如输入为B则输出为b，如输入9则转成整数9并输出。
（提示：‟a‟≤小写字母≤‟z‟，‟A‟≤大写字母≤‟Z‟）4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出FALSE。
5、输入三个数，按从大到小的顺序输出。
如，输入15 20 16 ，输出为20 16 156、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。
如，输入315，输出531。
7、输入四个整数，输出四个数中的最大值和最小值。
（分两行输出）8、输入一个秒数，转换成小时、分、秒并输出。
如输入4500，输出为1:15:0。
9、有鸡兔同笼，现发现有头30个脚90只，试编程算出鸡兔各多少只并输出。
10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有32块糖，请编程算出原来每位好友各有多少糖块。
11、假设邮局规定寄邮件时若每件重量在1公斤内（含1公斤）以每公斤1.5元收取邮费，超过部分按每公斤0.8元收取邮费。
编程输入邮件重量，输出应收邮费。
12、输入考试成绩，如果获得80分以上为A等，60到79分为B等，60分以下为C等。
编程输入分数，输出相应等级。
（用IF和CASE两种方法）13、输入两个0到99的整数，输出这两个整数相乘的竖式。
如，输入15 9则输出15和9相乘的竖式，输入18 21则输出18和21相乘的竖式。
14、输入任意的小写字母ch和任意数字n，将该字母按照字母表顺序向后移动n位（字母表首尾相连成环状），输出移位后的字母。
例如输入b 3，则输出e；输入x 4，则输出b。
（用两种方法解）输入格式：输入两个数据，之间用一个空格隔开，第一个数据是小写字母，第二个数据是一个正整数。
输出格式输出一个字符，表示移位后的字母。
样例输入： b 3 样例输出：e15、输入一个年份，判断是否是闰年，是则输出‟Yes‟，否则输出‟No‟（年份能被4整除，并且不能被100整除，或年份能被400整除即为闰年。
）(用IF和CASE两种方法)。
16、输入一个5位数，判断它是不是回文数。
即12321是回文数，个位与万位相同，十位与千位相同。
17、读入一个小写字母，如果它的ASCII码是奇数，输出其后继字母，如果它的ASCII码是偶数，则输出其前趋字母。
输入：f（ASCII码102）输出：e18.输入两个两位数，它们各位上的数字互不相等，如果这两个两位数的乘积等于把它们各自位上的数字交换后所得的新的两位数的乘积，输出等式，否则输出不等式。
例如：输入：12 63 输出：12*63=21*36输入：12 34 输出：12*34<>21*4319.给出一个英文字母，要求按字母顺序输出5个字母，给定的字母是五个字母中间的一个字母。
例如，给定的字母是“R”，应输出PQRST；给定的字母是“Z”，应输出XYZAB；给定的字母是“B”应输出ZABCD，其余类推。
（用两种方法解）输入：R 输出：PQRST输入：Z 输出：XYZAB20、编程模拟剪刀石头布游戏，J表示剪，S表示石，B表示包。
根据游戏者自己输入，计算机出结果。
21、现有1,2,3,4,5……n整数分多排排列，其中每排放x个，（1）输入n、x，编程输出n在第几排第几列。
如输入16 7，输出3 2（2）输入n、x，编程在屏幕上输出如下排列的数字（用取余和计数器两种方法解）1 2 3 4 5 6 78 9 10 11 12 13 1415 1622、输入两个正整数A、B，A不大于31，B不超过三位数。
使A在左，B在右，拼接成一个新数C，再输出C的值。
如A=2，B=16，则C为216。
若A=18，B=467，则C=18467。
23、小林有69元钱，准备全部购买笔。
店里有元、6元、5元一支的四种笔，请编程，在8元一支的笔必须购买一支的前提下，使购买的笔数量最多，而钱又恰好用完，输出此时购买的各种笔的数量。
24、已知2012年1月2日是星期一，输入2012年的一个月和日，输出该天是这一年中的第几天？并输出是星期几？如输入12 20 输出为354 5。
（星期天用7表示）25、四个同学上地理课，回答我国四大淡水湖泊大小的时候是这样说的：甲：最大洞庭湖，最小洪泽湖，鄱阳湖第三。
乙：最大洪泽湖，最小洞庭湖，鄱阳湖第二，太湖第三。
丙：最小洪泽湖，洞庭湖第三。
丁：最大鄱阳湖，最小太湖，第二，洞庭湖第三。
对于每个湖的大小，每个学生仅答对一句，请编程确定四个湖的大小。
26、有N盏灯放在一排，从1到N依次编号，有N个人也从1到N依次编号，第一个人将灯全部打开，第二个人将凡是2的倍数的灯全部关闭，第三个人将凡是3的倍数的灯作相反处理，第4、5、……、N个人都把自己编号的倍数的灯作相反处理。
问第N个人走过后，哪些灯是开着的？27、将一张面值100元的纸币换成若干张面值为1元，2元和5元的纸币，共有多少种换法？要求输出每一种换法。
28、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。
29、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如：13。
试找出所有二位绝对素数。
30、输出如下图形（单重循环用取余数和计数器两种方法解，再用双重循环做）12345678931、从键盘输入一个n(1<=n<=9)，输出n行数字倒三角图形如输入512132143215432132、输出如下数字图形12 34 5 67 8 9 1033、百鸡百钱问题：一只公鸡值5元，一只母鸡值3元，而1元可买3只小鸡。
现有100元钱，想买100只鸡。
问问买公鸡、母鸡、小鸡各几只？34、输出如下图形：*##***####*****35、有五个小朋友，分别得到a,b,c,d,e个糖果。
他们围成一个圈，按序号相邻，第五个小朋友又和第一个小朋友相邻。
现在老师让他们玩一个游戏，每个小朋友都把自己的糖果平均分成2分，将2份分给相邻的两个小朋友。
如果是奇数还余下一颗，自己就吃掉。
当5个小朋友依次分完糖后，最后请你按1--5号的顺序在一行里输出每个小朋友手里还有多少糖,换一行输出以及这些小朋友共吃掉了几颗糖。
36、星期天上午小明乘出租车去本市的外婆家。
出租车计价方案为：2公里以内起步价是6元，超过2公里之后按1.8元/公里计价，超过10公里之后在1.8元/公里的基础上加价50%，另外，停车等候则按时间计费：1元/3分（注：不满3分钟不计费）。
已知：小明到外婆家路程为N公里，中间停车等候时间总共M分钟，请计算小明到外婆家的出租车费用是多少元?输入：N M（N，M都是整数）输出：一个实数（表示车费，精确到0.1元）例如：输入：8 7 输出：18.837、输入年、月，输出该年该月的天数；（练习case语句）38、Pascal循环练习题计算1+(1+2)+(1+2+3)+...+(1+2+...+n)（用for、repeat、while三种方法解）39、1+3+5+7 ….. …..99=?（用for、repeat、while三种方法解）40、算出1到100之间偶数的个数和奇数的个数。
（用for、repeat、while三种方法解）41、算出1到100之间所有偶数的和与奇数的和并分别输出。
（用for、repeat、while三种方法解）42、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价格为80元。
编程由键盘输入订购套数，输出应付款的金额数。
43、对某产品征收税金，在产值1万元以上征收税5%；在1万元以下但在5000元以上的征收税3%；在5000元以下但在1000元以上征收税2%；1000元以下的免收税。
编程计算该产品的收税金额。
44、运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下:如果S＜250公里；运费为标准运价的100%如果250公里＜＝S＜500公里，运费为标准运价的98%；如果500公里＜＝S＜1000公里，运费为标准运价的95%；如果1000公里＜＝S＜2000公里，运费为标准运价的92%；如果2000公里＜＝S＜3000公里，运费为标准运价的90%；如果S＝＞3000公里，运费为标准运价的85%；。
请编计算运费的程序。
45、一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请编程求出所有这样的两位数。
46、把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，(30+25)2=3025计算结果又等于原数。
求所有符合这样条件的四位数。
47、从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。
48、数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。
现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。
49、有一个三位数，它的各位数字之和的11倍恰好等于它自身，请编程求出这个三位数。
（用for、repeat、while三种方法解）50、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。
如:153=13+53+33，所以153是一个水仙花数。
求所有的水仙花数。
（用for、repeat、while三种方法解）51、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。
52、输出100 以内的全部素数，要求每行显示5 个。
53、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元；第三种每套9张，售价2元。
现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。