Viết 1 hàm kiểm tra 1 số nguyên x có phải là số nguyên tố không? Ứng dụng hàm này hãy tìm: a. Số nguyên tố nhỏ nhất có 3 chữ số. b. Số nguyên tố lớn

0 bình luận về “Viết 1 hàm kiểm tra 1 số nguyên x có phải là số nguyên tố không? Ứng dụng hàm này hãy tìm: a. Số nguyên tố nhỏ nhất có 3 chữ số. b. Số nguyên tố lớn”

1. program nguyen_to;

   uses crt;

   var n:integer;

   {—ham-nguyen-to—}

   function ktnt(x:integer):boolean;

   var r:integer;

   begin

          ktnt:=false;

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

                 if x mod r=0 then exit;

          ktnt:=true;

   end;

   {—Chuong-trinh-chinh—}

   BEGIN

          clrscr;

          n:=100;

          while ktnt(n)=false do n:=n+1;

          writeln(‘So nguyen to nho nhat co 3 chu so la: ‘,n);

          n:=999;

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

          writeln(‘So nguyen to lon nhat co 3 chu so la: ‘,n);

          readln;

   end.

   Bình luận

2. Var a,b,c,m,s:longint;
    Function NT(a:longint):longint;
     Var s,c:longint;
       Begin
         s:=0;
         For c:=2 to Trunc(sqrt(a)) do
          If a mod c = 0 then
           Begin
             s:=1;
             Break;
           end;
       NT:=s;
     end;
    Begin
     For b:=100 to 999 do If NT(b)=0 then Break;
     writeln(‘be nhat’,b);
     For b:=100 to 999 do If NT(b)=0 then m:=b;
     Writeln(‘lon nhat’,m);
     readln;
   end.

   ../Cho mình 5* nhé*/..

   Bình luận