Lập trình liệt kê các số gần nguyên tố ra màn hình (n<=100000)

0 bình luận về “Lập trình liệt kê các số gần nguyên tố ra màn hình (n<=100000)”

1. program gan_nguyen_to;

   Uses crt;

   var n,i:integer;

   function ktgnt(k:integer):boolean;

   var j,d:integer;

   begin

          d:=0;

          for j:=2 to trunc(sqrt(k)) do

                 begin

                      if k mod j=0 then d:=d+1;

                      if d=2 then break;

                 end;

          if d=1 then ktgnt:=true else ktgnt:=false;

   end;

   BEGIN

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          for i:=2 to n do

                 if ktgnt(i) then write(i,’ ‘);

          readln;

   end.

   Bình luận
2. • macketoi0326
   • 15:37

   uses crt;
   var n,i: longint; xh: boolean;
   function KT(n: longint):boolean;
   var i: longint;
   begin
       if ((n = 0) and (n = 1)) then exit(false);
       for i:=2 to trunc(sqrt(n)) do
           if (n mod i = 0) then exit(false);
       exit(true);
   end;
   begin
       clrscr;
       write(‘Nhap so n: ‘);
       readln(n);
       write(‘Cac so gan nguyen to la: ‘);
       i:=1; xh:=false;
       while (i*i <= n) do
       begin
           if (KT(i)) then 
           begin
               write(i*i,’ ‘);
               xh:=true;
           end;
           inc(i);
       end;
       if (xh=false) then write(‘Khong co so nao la so gan nguyen to.’);
       readln;
   end.

   Bình luận