关闭

求连续十个最小的合数

225人阅读 评论(0) 收藏 举报
分类:
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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:16212次
    • 积分:118
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档