tìm số nguyên tố nhỏ nhất ______________=======__________________KO ĐÚNG CHỦ ĐỀ BC+0*

0 bình luận về “tìm số nguyên tố nhỏ nhất ______________=======__________________KO ĐÚNG CHỦ ĐỀ BC+0*”

1. program ntonhonhat;

   uses crt;

   var n,i,l:integer;

         kt:boolean;

   begin

   clrscr;

   write(‘Nhap n: ‘);

   readln(n);

   i:=n;

   kt:=false;

   while kt=false do

     begin

       inc(i);

       kt:=true;

       for l:=2 to trunc(sqrt(i)) do

         if i mod l=0 then kt:=false;    

     end;

   write(‘SNT nho nhat sau ‘,n,’ la: ‘,i);

   readln

   end.

   Bình luận