Pascal: Nhập một số nguyên n, đếm xem có bao nhiêu số nguyên tố trong khoảng từ 1 đến n.

0 bình luận về “Pascal: Nhập một số nguyên n, đếm xem có bao nhiêu số nguyên tố trong khoảng từ 1 đến n.”

1. uses crt;
   var n,i,d:longint;
   function nt(a:longint):boolean;
   var i:longint;
   begin
      i:=2; nt:=true;
      while(a>1)and(a mod i<>0)do inc(i);
      nt:=i=a;
   end;
   begin
   clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do 
         if nt(i) then inc(d);
      writeln(‘Ket qua: ‘,d);
   readln
   end.

   Bình luận

2. Program NN;
   Uses crt;
   Var n,i,d: longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to trunc(sqrt(a)) do
                   If a mod i = 0 then exit(false);
           exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0;
           For i:=1 to n do
                   If ngto(i) then inc(d);
           Write(‘D = ‘,d);
           Readln
   End.

   Bình luận