pascal题目3 pascal语言

(38)2¹⁰⁰是一个很大的数，计算机无法直接计算出来，编程求该式的最后n位数.(n<=8).

如:输入:n=5

输出:05376

（39）N(N>=100)个7组成的百位以上的自然数,被二位的自然数M除后,问余数是几?商数中各位数字之和是多少?

输入n,m, 输出余数及商数中各位数字之和.

输入输出样例

输入:100 13

输出:3 550

(40) N的阶乘值问题

[问题描述]

阶乘是数学中的一种运算，N的阶乘表示为：N！=1*2*3*4*……*N,编写程序，根据一个给出的N，求得其阶乘值中所有数字之和P。并判断P是否为素数。

[输入输出]

输入：键盘输入一个自然数N（1<=N<=12）。

输出：N的阶乘值的所有数字之和P，若P为素数输出“T”，否则输出“F”。

[样例1][样例2]

输入：5输入：12

输出：3□T输出：27□F

(41)完全平方数：寻找具有完全平方数，且不超过７位数码的回文数。所谓回文数是指这样的数，它的各位数码是左右对称的。例如121、676、94249等。

（42）一个椭圆形跑道周长为400米,甲、乙两人同时从一个起跑点向相反的方向绕跑道慢跑，已知甲每秒钟跑5米，乙每秒钟跑3米。问他们两人在跑道上分别N次相遇时，每次各距起跑点多远（取距起跑点近的距离）？

（43）一块木版高M厘米，有个小虫由地面向上爬，每分钟爬上50厘米，每爬1分钟就要休息1分钟，在这休息时间内下滑30厘米，当小虫爬到顶部还要休息2分钟，再按原路爬回地面。问共用多少分钟？

输入输出样例

输入: 110

输出: 10

（44）NICOMACHUS定理

问题描述

NICOMACHUS定理：任何一个整数的立方都可以表示成一串奇数的和，例如：13=1=1，23=3+5=8，33=7+9+11=27，43=13+15+17+19=64，输入任一整数n，输出这一整数的立方与一串奇数的和。

输入输出样例：

输入：n=4

输出：64=13+15+17+19

（45）求N的值

问题描述

已知N个自然数(1,2,...,N)的各位数字的总个数不超过M，输入M，求最大的N值。

输入输出样例：

输入：m=2004

输出：n=703

(46求1~n之间,有多少个连续的自然数之和等于s,把这样的数组分别打印出来.

例：输入：n=200

s=555

输出：4+…+33=555

30+…+44=555

51+…+60=555

90+…+95=555

109+…+113=555

184+…+186=555

n=6

(47)从键盘输入一个整数W，从M开始，有连续N个整数的和为W，当然，这样的M和N可能不止一对，编程求出当M+N的值为最小时的M和N。

（如输入78，有1+2+……+12=78，M=1，N=12，有18+19+20+21=78，M=18，N=4，有25+26+27=78，M=25，N=3，因为1+12为最小，所以输出1和12）

(48)若两个自然连续数乘积减1后是素数，则称此两个自然连续数为友数对，该素数称为友素数。例如，由于2×3－1＝5，因此，2与3是友数对，5是友素数。求［m，n］之间：

（1）友数对的数目；（2）所有友素数之和。

输入：m n

输出：友数对的数目

所有友素数之和

（49）.某电台的音乐欣赏节目自 1988年1月1日起按照两天传统节目，一天流行音乐的规律开播。即第一、二天是传统音乐，第三天是流行音乐，第四天、五天是传统音乐，第六天是流行音乐，如此类推。请编程，使得输入开播后的某一日期，则输出当天是传统音乐还是流行音乐。

例: 输入:1988 1 4

输出: classic

输入:1988 1 6

输出: pop

（50）.编程实现：键盘输入年月，计算机能打印出该月的月历，如输入2000、1，则输出：

SUNMODTUEWEDTHUFRI SAT

12345

6789101112

13141516171819

20212223242526

2728293031

(51)费马命题是：一个素数，若被4除余1，则它能表示成两个数的平方和。如5=12+22，13=22+33。输入一个自然数n，若符合条件（被4除余1）的素数满足费马命题，则输出格式如5=1*1+2*2；若存在某符合条件的素数不满足费马命题，则输出’false’，若不是符合条件的数则重新输入。

（52）数学黑洞6174

一个任意的四位正整数。将数字重新组合成一个最大的数和最小的数相减，重复这个过程，最多七步，必得6174。即：7641-1467=6174。将永远出不来。

输入一个四位数数字（全相同的除外），均能得到6174。输出掉进黑洞的步数。

（53）亲密数对

如果有两个不同的整数，其中任一个数的全部因子（包括1，但不包括其自身）之和各等于另一个数，反之亦然，则称这两个整数互为亲密数。例如220和284就是一对亲密数。因为220的因子有1，2，4，5，11，20，22，44，55，110。这些因子的和为284，而284的因子有1，2，4，71，142，它们的和为220。键盘输入正整数M，N（M＜N，试编程求出M～N之间的所有亲密数对。注意在显示亲密数对时不要重复显示。

(54)寻找怪数：有一种奇怪的自然数，它的比其小的所有因子之和等于它本身，例如：6 =1+2+3，其中1、2、3都是6的因子，输入n，编程找出1~n之内的所有怪数。

（54-1）一万天纪念日(t3.pas)

【问题描述】“一万天以后的我”征文活动即将开始。小马的同学都想知道自己出生后第一万天纪念日的日期(出生曰算第0天)。同学们的生日为YY年MM月DD日，小马希望编一程序，输入某同学的生日YY，MM，DD后，即可输出一万天纪念日日期。

【输入】一行分别读入YY，MM，DD，其中1949<=YY<=2005，日期绝对合法。

【输出】 一行，即某同学出生日以后第一万天的日期，格式为“YY—MM—DD"。

【样例输入】

1975 7 15

【样例输出】

2002-11-30

(55) 求数字的乘积根.

【问题描述】一个正整数的数字的乘积N的定义是:这个整数中非零数字的乘积.

例如,整数999的数字乘积为9*9*9,即729。729的数字乘积为7*2*9,即126。126的数字乘积为1*2*6,即12。12的数字乘积为1*2,即2。一个正整数的数字的乘积根N是这样得到的:反复取该整数的数字乘积,直到得到一位数字为止.上例数字的乘积根是2。编一个程序,输入一个正整数(长度不超过10位),输出计算其数字乘积根的每一步结果.

输入输出样例:

输入: 999

输出: 729

126

12

2

(56)键入两个自然数N和K，将N写成K个大于1的自然数相乘，要求这K个数按从小到大排列，而且除了第K个数之外，前面（K-1）个数是N分解出来的最小自然数。

例如：N=24，K=2时，输出为24=2*12，而不是24=4*6

N=3，K=2时，输出则为“No answer！”

（57）真分数的分子为1，称埃及分数。将1/A改写成1/A=1/X+1/Y(埃及分数)的所有形式.A,X,Y都是自然数,A的值由键盘输入.例:

A=6

1/6=1/7+1/42

1/6=1/8+1/24

1/6=1/9+1/18

1/6=1/10+1/15

1/6=1/12+1/12

（58）从键盘输入真分数的分子A和分母B,编程判断这个真分数是否可以表示为两个自然数的倒数和;如果可以,就输出这两个自然数,(不止一个解答的只给出一个即可) 否则输出"NO".

例如: 输入 A, B= 5, 6

输出 N1, N2= 2, 3 ( 30分, 存盘文件名为b2 )

(60)对N的操作

【问题描述】

给出2个任意的正整数N，K(1≤N≤10000，0≤K<N)，然后进行如下操作：

(1)从N中连续减去2R(R=0，1，2，3，…)；

(2)当剩余的数不够减时，则将其加上K，再重复(1)的操作过程;

(3)若剩余的数为0时，则结束操作并输出进行减法的次数；

(4)若存在永远不能减完的情况，则输出信息“ERROR!”。

例如：当N=4 K=2时，操作过程如下：

①4-l=3减20

②3-2=l减21

由于不够减，所以加K的值2，得：N=1+2=3

③3-1=2减20

④2-2=0减21

此时结果为0，则输出：STEP=4(表示进行了4次加减法操作运算)

又如：当N=2，K=1时，操作过程如下：

①2-1=1减20

由于不够下次减，所以加K的值，得：N=l+1=2

②2-1=l减20

在这种情况下，永远不能减完，则输出信息“ERROR!”

（61）求和

由键盘输入正整数N（N≤100），求1到N之间所有的5的倍数之和S。

例：输入：N＝10

　　输出：S＝15　（因为1～10之间只有5和10是5的倍数）

（62）文本图形

由键盘输入正整数N（N≤21）和一个字符，要求输出一个左右对称的N行的文本图形。

例：输入：N＝4

　　　　　C＝D

　　输出： D

DED

DEFED

DEFGFED

（63）数的统计（60分）

一个数“含有0”是指这个数至少有某一位数字为0。小明对那些“含有0”的自然数很感兴趣，想挑出来进行研究。那么，1～N当中“含有0”的自然数有多少个？小明想在1秒钟内得到答案，你能帮他做到吗？

输入：N（1≤N≤100000000）

样例

　　输入：105

　　输出：15

（64）求倍数及“0”的个数（60分）

由键盘输入正整数N（N≤50），已知数列A1，A2，A3，……，An分别为2004,20042004,200420042004，……，20042004……2004。问：A1＋A2＋A3＋……＋An的精确值S有多少位数？S当中有多少个“0”？

（设：S的位数为K，S中“0”的个数为Z）

例：输入：N＝2

　　输出：K＝8　　Z＝4　　（因为S＝20044008）

(65)01统计

近来IOI的专家们在进行一项有关二进制数的研究，研究涉及一个统计问题令他们大伤脑筋。

问题是这样的：

对于一个自然数n，可以把它转化成对应的二进制数，如10=1010，5=101。我们统计一下对应的二进制数中的0的个数和1的个数。如果在这对应的二进制数中，0的个数比1的个数多，就称n为A类数。

现在的任务是，对于一个给定的m，求1~m中A类数的个数。

输入输出示例：

输入：3

输出：0

(66)二进制中的1

给定一个正整数N，请找出N转化为二进制后，其中所有1的位置。二进制的最低位（最右侧）为第0位。

Input

输入中包含一个正整数N （ 1 <= N <=1000000）

Output

输出N转换为二进制后，所有1的位置，每两个位置中间用一个空格隔开

Sample Input

13

Sample Output

0 2 3

(67)一个整数的立方可以表示为两个整数的平方差，如19853=19711052-19691202。

编程：输入一个整数N，自动将其写成N3=X2-Y2。

输入输出样例：

输入： 1985

输出： 1985*1985*1985=1971105*1971105-1969120*1969120

（68）明明的幸运数

问题描述：

明明是1993年3月3日出生的，他出生的年份最后一个数字是3，月数、日期都是3，他认为数字3是他的幸运数，甚至凡是3的倍数的数他都非常喜欢，认为都是他的幸运数，现在给出一个正整数N，请你帮明明统计出1至N之间（包括1和N）有几个数字是明明的幸运数。

输入输出样例：

输入: 10

输出: 3

（69）最长数链

问题描述：

在数学上有个这样的猜想：任何一个大于1正整数N，经过下面的变换最终都能变为1，变换规则是：如果N是奇数，将它乘以3再加1，即N变为3*N+1，如果N是偶数，将它除以2，即N变为N/2；继续这样变换，直到变为1为止。如：N=22，则变换过程如下：2211 34 17 5226 13 4020 10 516 8 421。对于给定的N，我们把显示出来的数的个数称为N的链长，例如22的链长为16。现在你的任务是编写一个程序，对于任意给定的一对正整数k和j，给出K、j之间的最长链长，当然这个最长链长是由k、j之间的其中一个正整数产生的。这里的k、j之间即包括k也包括j。

输入输出样例：

输入: 1 10

输出: 20

（70）13号星期几（100分）（存盘程序名：t2）

编程统计：从1900年1月1日(星期一）开始经过的n年当中，每个月的13号这一天是星期一、星期二、星期三、……、星期日的次数分别是多少？

（提示：年份能被4整除而不能被100整除的是闰年；或者年份能被400整除的是闰年。)

输入：整数n (1≤n≤400)

输出：一行 7个整数, 以空格相隔，

（依次是星期一、星期二、星期三、……、星期日的次数）

样例：输入：1

输出：1 3 12 2 2 1

（71）编写程序，计算N！以十进制数形式表示的数中最右的非零数字，并找出在它右边有几个零。例如12！＝1×2×3×…×12＝479001600。因此12！的最右的非零数字是6右边有2个零。

输入输出样例

输入:n=12

输出:6 2

（71-1）末尾的0

求1！*2！*……*（n-1）!*n！末尾0的个数。（1≦n≦108）

输入输出样例:

输入: n=10

输出: 7

(72) 字符处理

【问题描述】输入一个以“@”结束的字符串，从左至右翻译。若下一个字符是数字n（0<n≤9），表示后一个字符重复n+1次，不论后一个字符是否为数字；若下一个字符非数字，则表示自己。

例如“A2B5E34FG0ZYWPQ59R@”可翻译成“ABBBEEEEEE4444FGZYWPQ999999R@”。

【输入】为需要输入的字符串（串长≤255）

【输出】为翻译后的字符串。

【样例输入】

A2B5E34FG0ZYWPQ59R@

【样例输出】

ABBBEEEEEE4444FGZYWPQ999999R@

（73）[字符加密]

加密规则是将输入的英文字母下推k个顺序后输出。加密工作直至输入一个非英文字母为止。

[样例输入]

3

a u I p Q Y Z 0

[样例输出]

d x L s T B C

（74）密码生成器

问题描述：

当用户输入一个字符串时，程序能自动生成一个密码。密码生成的规律为：奇数位的字母转换成其后第2个字母，偶数位的字母转换为其前第2个字母，非字母字符不变。

输入输出要求：

输入：输入一个五个字符组成的字符串。

输出：将按密码生成规律生成的密码输出。

输入输出样例：

输入：ilY8@

输出 ：kjA8@

（75）

有数列:

1,1/2,2/2,1/2,1/3,2/3,3/3,2/3,1/3,1/4,2/4,3/4,4/4,3/4,2/4,1/4,……

输入n,求数列第n项是几?

例:输入:10

输出:1/4

(76)找最长良序字符串

【问题描述】

我们将“ABC”或“ACEG”等类似的字串称为良序字串（因为它们是按ASCII码排列的），而像“ACB”或“ACCD”或“AGCD”则不可称为良序字串。

编写程序，将输入的一串字符中的最长良序字串找出来，并输出其长度。

【输 入】：文件读入一串字符（长度≤30）,以#结束。

【输 出】：输出到屏幕 。一个最长良序字串的长度。

【样 例】：

输入输出

23451357912468234565

爱华网本文地址 » http://www.413yy.cn/a/25101013/154200.html