Viết chương trình nhập vào số tự nhiên n rồi kiểm tra xem n có là số nguyên tố hay không

0 bình luận về “Viết chương trình nhập vào số tự nhiên n rồi kiểm tra xem n có là số nguyên tố hay không”

1. Program chuongtrinh;

   Uses crt;

   Var n , i :Integer;

   Begin

             clrscr;

             Write(‘Nhap vao gia tri cua n:’);

             Readln(n);

             if n<=1 then writeln(‘n da cho khong la so nguyen to’) else

             begin

                      i:=2;

                      while (n mod i<>0) do i:=i+1;

                      if i=n then writeln(‘ n da cho la so nguyen to’); else

                      writeln(‘n da cho khong la so nguyen to’);

                      end;

            readln

   end.

   Bình luận

2. uses crt;

   var n:longint;

   {————————-}

   function nt(x:longint):boolean;

   var h:longint;

   begin

   if x<2 then exit(false);

   for h:=2 to trunc(sqrt(x)) do if x mod h=0 then exit(false);

   exit(true);

   end;

   {————————-}

   begin

   clrscr;

   readln(n);

   if (nt(n)) then write(‘Co’) else write(‘Khong’);

   readln

   end.

   Bình luận