求连续十个最小的合数

原创 2015年07月10日 09:43:54
program p1;
var a,b,s,n:integer;
   yes:boolean;
procedure sub(x:integer;var yy:boolean);
var k,m:integer;
begin
  k:=trunc(sqrt(x));
  for m:=3 to k do
  if odd(m) then
    if x mod m=0 then yy:=false;
end;
begin
 b:=3;
 repeat
   a:=b;
   repeat
     yes:=true;
     inc(b,2);
     sub(b,yes);
     if yes then s:=b-a;
   until yes;
 until s>=10;
   for n:=a+1 to a+10 do
    write(n:6);
   writeln;
end.

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

POJ 3764 The xor-longest Path ( 字典树应用—— 求连续段相异或最大最小的线性算法)(好题)

题意:已知:给出n个结点的树,定义:两结点间的权值为两点之间所有边相异或的值.求:树中的某两点间的最大权值. 思路:先说简单一点的题:有道CowXor,是一串线性序列,求某连续段异或的最大值,这题...

Light oj 1138 - Trailing Zeroes (III) 【二分查找好题】【 给出N!末尾有连续的Q个0,让你求最小的N】

1138 - Trailing Zeroes (III) PDF (English) Statistics Forum Time Limit: 2 second(s) Mem...

有一串首尾相连的珠子,共有m个,每一个珠子有一种颜色,并且颜色的总数不超过n(n<=10),求连续的珠子的颜色总数为n时,长度最小的区间。

有一串首尾相连的珠子,共有m个,每一个珠子有一种颜色,并且颜色的总数不超过n(n 分析:首先要为这个题目构建数据结构,如何表示n种颜色?可以用1到n的数来表示相应的颜色,把它存放在一个数组中。这...

连续x次奇数(n+2*x)是合数的算法题暴力算法

// 连续6个奇数a,a+2,a+4,a+6,a+8,a+10都是合数,求最小的a// 暴力解法先上结果,后面贴上代码:1次连续n=9,连续值个数: 1;耗时: 0ms,总计: 0ms 2次连续n=2...

连续合数探求

本节探讨连续合数问题,实际上还是与素数密切相关;最多连续合数区间中不能存在素数,最小连续n个合数中也不能存在素数;最多连续合数区间试在指定区间 [c,d] 内探求最多连续合数的个数及最多连续合数的起始...

卢卡斯定理 解决大数组合数求余。

【卢卡斯(Lucas)定理】 Lucas定理用来求C(a,b)mod p的值,其中p为素数。 数学表达式为: Lucas(a,b,q)=C(a%q,b%q)*Lucas(a/p,b/p,p...
  • modiz
  • modiz
  • 2014年07月22日 14:26
  • 1032

求一千以内的合数

  • 2011年12月24日 15:10
  • 598B
  • 下载

09求500万以内的亲合数

题目描述:求500万以内的亲合数        一:亲合数概念        如果两个数a和b, a的所有真因子之和等于b,b的所有真因子之和等于a,则称a,b是一对亲和数。        ...
  • gqtcgq
  • gqtcgq
  • 2015年06月11日 10:54
  • 925

lucas定理求大数组合数取模

lucas定理求大数组合数取模

HDU 2847 Binary String 给定二进制n与整数k,插入0/1使得n能整除k,求最小的解

题意: 给定二进制n与整数k 允许在任意位置插入0/1使得n能整除k 求最小的n 显然这样的n一定存在,且k 思路: 首先是 x*k一定是 k 的倍数  所以枚举 x = 1 -> 正无穷 ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:求连续十个最小的合数
举报原因:
原因补充:

(最多只允许输入30个字)