Viết chương trình nhập vào từ bàn phím số nguyên dương N kiểm tra xem số đó có phải là số nguyên tố

0 bình luận về “Viết chương trình nhập vào từ bàn phím số nguyên dương N kiểm tra xem số đó có phải là số nguyên tố”

1. var n:longint;

   function checkprime(x:longint):boolean;
   var i:longint;
   begin
           if x<2 then exit(false);
           for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true);
   end;                                                                 

   begin

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

   if checkprime(n) then write(‘La snt’) else write(‘Khong phai snt’);

   readln

   end.

   Bình luận

2. Program SNT;
   Uses crt;
   Var n: int64;
   Function ngto(a:longint):boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod i = 0 then exit(false);
                                       exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           If ngto(n) then write(n,’ la so nguyen to’)
           Else Write(n,’ khong phai so nguyen to’);
           Readln
   End.

   Bình luận