Cho 1 số n tìm các số nguyên tố nhỏ hơn n (Làm theo cách tối giản nhất có thể

0 bình luận về “Cho 1 số n tìm các số nguyên tố nhỏ hơn n (Làm theo cách tối giản nhất có thể”

1. Program Nguyen_to;

   Var n,i:integer;

   Function NT(n:integer):Boolean;

   Var ok: Boolean;

   i: integer;

   Begin

   ok:=true;

   for i:=2 to n-1 do

   if (n mod i)= 0 then ok:=ok and false;

   if n < 2 then NT:=false else NT:=ok;

   End;

   Begin

   Write(‘Nhap n: ‘);Readln(n);

   i:=n;

   Repeat i:=i+1; 

   Until NT(i);

   Write(‘So nguyen to nho nhat lon hon ‘,n, ‘la: ‘,i);

   Readln

   End.

   Bình luận

2. program ngto;

   uses crt;

   var n:integer;

   {—chuong-trinh-con—}

   function ktnt(k:integer):boolean;

   var r:integer;

   begin

          ktnt:=false;

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

                 if k mod r=0 then exit;

          ktnt:=true;

   end;

   {—chuong-trinh-chinh—}

   BEGIN

          clrscr;

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

          if n<=2 then write(‘Khong co’)

          else 

                 begin

                        n:=n-1;

                        while ktnt(n)=false then n:=n-1;

                        write(n);

                 end;

          readln;

   end.

   Bình luận