Liệt kê các số gần nguyên tố, N<=100000

0 bình luận về “Liệt kê các số gần nguyên tố, N<=100000”

1. 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.

   Với cái thuật toán này chấp lên 1 tỉ cũng được nữa, hihi.

   Bình luận