Viết chương trình in ra màn hình tất cả các số nguyên tố bé hơn hoặc bằng n

0 bình luận về “Viết chương trình in ra màn hình tất cả các số nguyên tố bé hơn hoặc bằng n”

1. Function ktnt(x:integer):boolean;

    begin

      Ktnt:=true;

      For j:=2

   to round(sqrt(n)) do if n mod i =0 then 

         Begin

            Ktnt:=false;

             Break;

          End;

    end;

   begin

   …

   for i:=1 to n do if ktnt(i)=true then write(i,’ ‘);

   …

   end;//nhap xuat tu lam

   Bình luận

2. Var n,i:integer;

   Function nt(x:integer):boolean;

   Var i:integer;

   BeginNt:=false;

   If x<2 then exit;

   For i:=2 to trunc(sqrt(x)) doIf x mod 2=0 then exit;

   Nt:=true;

   BeginWrite(‘nhap n:’);

   readln(N);

   For i:=2 to n doIf nt(i) then write(i,’ ‘);

   Readln

   End.

   Bình luận