Question

求pascal编程练习题

Answer 1

基础题：
8．打印某年某月有几天。
输入：年、月；
输出：天数
提示： ① 每年1、3、5、7、8、10、12这几个月每月有31天
② 每年4、6、9、11这几个月每月有30天
③ 2月分两种情况：闰年29天，否则28天
* 闰年的条件：年数能被4整除，且不能被100整除（除非可以被400整除）。
★ 判断一个数是否能被另一个数整除的方法：
用求余函数求出余数，若余数为0则可整除。

11．求一个四位整数的各位数字之和。
输入：一个整数（1000～9999）
输出：各位数字之和
提示：先判断输入的数是否符合要求（1000～9999），若不符合，则输出‘Input Error’；
提取这个数的各位数字：个位数——这个数除以10的余数；
十位数——这个数除以100的余数，再整除10；
……
12．输入一个正整数(longint)，将它倒置后输出。
例如： 输入 8431 ， 输出 1348
输入 123456789 ， 输出 987654321

13．求两个数的最小公倍数
输入：两个正整数
输出：最小公倍数
14．求两个数的最大公约数
输入：两个正整数
输出：最大公约数

15．输入一个正整数N，若为质数，输出‘T’，否则输出‘F’。
判断质数的方法：只要2到N－1都不能整除N，就可判定N为质数。

基础题还推荐你去zerojudge

算法题去vijos，刷了上百道就可以去usaco

Answer 2

FBI序列(fbi)
【问题描述】
两伙外星人策划在未来的XXXX年侵略地球,侵略前自然要交换信息咯,现在,作为全球保卫队队长,你截获了外星人用来交换信息的一段仅由’F’,’B’,’I’,’O’,组成的序列,为了保卫地球和平,为了使家园不受破坏,你要机智地破解密码,勇敢地迎击外星人!记住,你不是一个人在战斗!你不是一个人!你的背后是千千万万的地球人！
【输入文件】
一组仅由’F’,’B’,’I’,’O’,组成的序列（’F’,’B’,’I’,’O’这四个字母中的某一个或某几个不一定会出现，且保证序列长度<=2000)
规定这个序列所要传达的信息就是这组序列有多少个’FBI’(子序列)
【输出文件】
一个数,表示这组序列有多少个’FBI’的子序列(保证答案<=2^31，且FBI必须是正序，即IBF或者BIF或者FIB或者BFI或者IFB都不能算是一个FBI)
【样例输入】
FBIIBFOI
【样例输出】
4
【样例说明】
第一个FBI是由序列的第一个字母+序列的第二个字母+序列的第三个字母组成
第二个FBI是由序列的第一个字母+序列的第二个字母+第四个字母组成
第三个FBI是由序列的第一个字母+序列的第二个字母+第八个字母组成
第四个FBI是由序列的第一个字母+序列的第五个字母+第八个字母组成

Answer 3

上VIJOS。。