pascal题目3 pascal语言

(38)2100是一个很大的数,计算机无法直接计算出来,编程求该式的最后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)完全平方数:寻找具有完全平方数,且不超过7位数码的回文数。所谓回文数是指这样的数,它的各位数码是左右对称的。例如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

pascal题目3 pascal语言

输出: 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

(77)有一组数,以10000为结束标记,如其排列形式如下:11,19,9,12,5,20,1,18,4,16,6,10,15,2,17,3,14,7,13,8,10000(结束标记,不计算在内),且尾部8和头部11首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它们的起始位置。

  

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

更多阅读

FreePascal备忘录_middlesch free pascal ide

Free Pascal新增数据类型1.整型名称 类型 表示范围 占用字节Int64 整数类型 -9223372036854775808 ~ 9223372036854775807=2 -1 8Qword Int64的无符号整数类型 0 ~ 18446744073709551615=2 -1 8Cardinal Longint(-2147483648~21474836

DVD碟报 国视文化·《大白鲨之致命武器》 大白鲨之致命武器国语

介质:D5容量:3.79G语言:中影数字院线公映配音DD2.0 192K+英语原声DD2.0192K(可在正片调换)字幕:对应公映配音中文字幕(可在正片调换)片长:01:27:29北京电视艺术中心音像出版社出版发行广东国视文化传播有限公司总经销国家广播电影电视总局电影管

WMP11 万能解码器下载 万能解码器中文版下载

“终极解码”(英文名为FinalCodecs)原名"My MPC sdxy DIY版", 为My MPC DIY系列的后续分支版本, 是一款全能型、高度集成的解码包,自带三种流行播放器(MPC/KMP/BSP),并对WMP提供良好支持,可在简、繁、英3种语言平台下实现各种流行视频音频

声明:《pascal题目3 pascal语言》为网友不后悔分享!如侵犯到您的合法权益请联系我们删除