枚举算法题目及其代码

枚举算法题目及其代码

的计数算法及其代码的标题由李利添

1，权重[问题描述]

有1g，2g，3g，5g，10g，XXXX年后，欧拉证明了欧几里得定理的逆命题:每一个偶数完全数都是欧几里得形式例如，6 = 2(2–1)*(2 2–1)，28 = 2(3–1)*(2 3–1)

是一个罕见的完全数。到1975年，只找到了24个满分，前四个是6，28，496，8128对应的p是2，3，5，7，

，给你一些整数p(不一定是质数)请判断2(p-1)*(2p-1)是否是一个完全数最高满分不超过2 33分[输入格式]

输入文件只有一行，即p[输出格式]

输出\或\注意情况)。[输入样本]编号2

[输出样本]编号2

[参考程序]

常量最大值= 131071；

var pr:array[1..最大值]的布尔值；p:字节；

程序埃拉托斯；var i，j:word；begin

fillchar(pr，sizeof(pr)，true)；公关[1]:=假；

表示i:=2至最大div 2，如果pr[i]则

表示j:=2至最大div i，则pr[I * j]:= false；结束；{埃拉托}

begin{main}埃拉托；

赋值(输入，“number . in”)；重置(输入)；

2

赋值(输出，“number . out”)；重写(输出)；read ln(p)；

if(pr[p)和(pr[trunc(exp(p*ln(2)))-1])则writeln(“是”)否则writeln(“否”)；

关闭(输入)；关闭(输出)；结束。

3，苹果采摘陶陶[问题描述]

说苹果去年被陶陶采摘后非常生气，他们用最先进的克隆技术克隆了许多陶陶的复制品，然后挂在树上采摘。

的规则是，一个苹果只能摘一个陶陶，而且只有最高的陶陶低于它能摘的高度(即小于关系)，如果它不能摘，它只能沮丧地走开。给出苹果的数量、每个苹果能达到的高度和每个陶陶的高度，并问摘下苹果后还剩多少陶陶。？[输入格式]

的第一行有两个数字:苹果的数量n和陶陶的数量m (n，m0然后开始[最佳]:= false；12月(tot)；结束；结束；结束；{ work }

程序打印；开始

分配(输出，“apple . out”)；重写(输出)；write ln(tot)；关闭(输出)；结束；{打印}开始{主}初始化；工作；打印；结束。

4

4，顶级卡特彼勒编号(编号。[问题描述]

顶猫非常喜欢研究数字，尤其是质数一天，top cat发现有些数字可

以表示为两个质数的乘积例如，10 = 2× 5.2，5是质数，所以10是“顶级猫数”

所以猫决定考彩虹。他告诉彩虹一个数字n来判断n是否是“顶级猫数”？

[输入格式]

行，一个数字n (1