几道Pascal小题，求各位大神解题！感激不尽（就做第一题求和就好了，其它有兴趣的帮

见或不见

求和

(asum.pas)

给出一个自然数M（1≤M≤109）,求最大的n，使得1+2!+3!+…+n!<M。
输入文件(asum.in)说明：一行，自然数M
输出文件(asum.out)说明: 最大的n
输入输出样例:
输入:
100
输出:
4

求完全数个数

（yin.pas）

输入一个自然数N（2≤N≤200000），求2到N之间的完全数个数。完全数：因子之和等于它本身的自然数。如：6=1+2+3.
输入文件(yin.in)说明：一行，自然数N；
输出文件(yin.out)说明：2到N之间的完全数个数；
输入输出样例:
输入:
  10
输出:
  13

判断回文素数

（hui.pas）

如果一个数从左边读和从右边读都是同一个数，就称为回文数，如1221就是一个回文数，输入一个自然数N（2≤N≤109），判断N是否既是回文数又是素数，若是就输出“TRUE”，否则就输出“FALSE”。
输入文件(hui.in)说明：一行，自然数N；
输出文件(hui.out)说明：一行，TRUE或者FALSE
输入输出样例:
输入1:
  11
输出1:
  TRUE
输入2:
  11189
输出1:
  FALSE

AB类数 （ab.pas）

【问题描述】
若将一个正整数化为二进制数，在此二进制数中，我们将数字1的个数多于数字0的个数的这类二进制数称为A类数，否则就称其为B类数。
    例如：（13）10=（1101）2
        其中1的个数为3，0的个数为1，则称此数为A类数；
         （10）10=（1010）2
        其中1的个数为2，0的个数也为2，称此数为B类数；
         （24）10=（11000）2
        其中1的个数为2，0的个数为3，则称此数为B类数；
，求出１到n之间的A、B类数

【输入格式】

ab.in共1行，为正整数N（1≤n≤1000000）

【输出格式】
ab.out共两行，第一行为A:，后面接A类数的个数；第二行为B:，后面接B类数的个数；

【输入样例】

5

【输出样例】

A:3

B:2

N的连续拆分

（split.pas）

【问题描述】
所有的正整数均可以表示为一个、两个或者多个连续正整数的和，给定一个不超过10E14的正整数，求出它可以用几种不同的方法表示成连续正整数之和。例如给出9，则有三种方法：9，4+5，2+3+4
【输入说明】一个数字n （　1<=n<=10E14 ）　。
【输出说明】将N表示成连续正整数之和的方法个数和。
【样例输入1】9                  
【样例输出1】3
【样例输入2】11
【样例输出2】２
【样例输入３】12
【样例输出３】２　

踢AI

（airepick.pas）

【问题描述】
小O、小T和小L喜欢一起dota。但是他们用来dota的电脑配置很差，经常在团战的时候卡。OTL三人经过长期观察之后发现某些英雄的技能会让游戏格外卡，因此他们决定在今后的游戏中不使用这些英雄。为此，他们要在游戏的第一时间观察哪些AI选到了不该出现的英雄并输入-airepick指令来让AI重选。
游戏一开始会有很多信息，每条信息占一行，其中包括了所有玩家选择英雄的状况。OTL三人发现，AI的英雄选择信息的第一个词(空格之前的部分)一定会以数字开头，这个数字标明了AI的玩家编号，而且这行信息一定会包含某个英雄的完整的名字。同时，这样的信息也都是AI的英雄选择信息。
现在他们希望你编写一个程序，筛选出所有AI选择英雄的信息，对于每个选了不该选的英雄的AI输出一条相应的-airepick指令。
令OTL三人感到失望的是，他们提供(给你)的输入总是会有一些重复。请忽略他们的失误，即使有所重复也严格地按照顺序输出每一条指令。
【输入说明】
第1行：正整数n，不该出现的英雄个数。
第2行至第n+1行：每行有若干英文字母和空格，表示一个不该出现的英雄名字。
第n+2行：正整数m，需要筛选的信息条数。
第n+3行至第n+m+2行：每行有一条信息。
【输出说明】
输出若干行，每行均为”-airepick X”，X是一个需要重选英雄的AI玩家编号。
【输入样例】
6
Sand King
Twin Headed Dragon
Earthshaker
Tidehunter
Tormented Soul
Slayer
21
Theta wtf
Omega apne
Omega has chosen All Pick Normal Exp For game modes type gameinfo
Lambda di
Lambda random
Omega random
Theta random
Omega Barathrum has chosen Spirit Breaker
Theta Razor has chosen Lightning Revenant
Lambda
Lambda random
6I Crixalis has chosen Sand King
Lambda Leshrac has chosen Tormented Soul
7I Mangix has chosen Pandaren Brewmaster
4I Luna has chosen Moon Rider
Omega swap
8I Techies has chosen Goblin Techies
9I Rooftrellen has chosen Treant Protector
Omega di
5I Jakiro has chosen Twin Headed Dragon
10I Rigwarl has chosen Bristleback
【输出样例】
-airepick 6
-airepick 5
【数据规模和说明】n<=100，m<=500。
英雄的名字中，空格既不会出现在开头又不会出现在结尾。
每个单词间有且只有一个空格。
每行不超过75个字符。
AI玩家编号的位数不超过9。

代金券

（coupon.pas）

【问题描述】
小O、小T和小L的生活是如此的欢乐以至于他们经常错过去食堂吃饭的最佳时机。为了更好地解决吃饭问题，OTL三人发现了一家快餐店，他们可以在网上把外卖叫到宿舍。
现在这家快餐店提供了代金券优惠。点到某些菜的时候会附赠若干张1元代金券，可以在之后使用。然而，代金券的使用也有一些限制。每次订餐可以使用的代金券数量是有限的，具体数量由订餐内容决定；如果订餐时使用了代金券，就不会附赠代金券。
OTL三人已经知道接下来的一段时间他们所有订餐的信息，他们想知道这段时间内至少要开支多少钱。
【输入说明】
第1行：n，订餐的次数。
第2行至第n+1行：三个整数p，q和r，分别代表一次订餐的价格、代金券附赠数量和代金券可用数量。
【输出说明】
一行，一个整数X，表示最少的开支。
【输入样例】
2
10 1 0
10 0 1
【输出样例】
19
【数据规模】
对50%的数据，n<=20。
对100%的数据，n<=30。