viết chương trình xét xem 1 số n có phải là 1 số nguyên tố hay không ?

0 bình luận về “viết chương trình xét xem 1 số n có phải là 1 số nguyên tố hay không ?”

1. program hotboy;

   uses crt;

   var n,i : integer;

   kt: boolean;

   begin

   kt:=true;

   write(‘nhap so can xet’); readln(n);

   for i:=2 to n-1 do

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

   if kt then write(n,’la so nguyen to)

   else write(n,’khong phai la mot so nguyen to’);

   readln

   end.

   Bình luận

2. Program SNT;
   Uses crt;
   Var n: longint;
   Function SNT(a:longint):boolean;
   Var i:longint;
   Begin
           If i<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 SNT(n) then Write(n,’ la so nguyen to’)
           Else Write(n,’ khong phai la so nguyen to’);
           Readln
   End.

   Bình luận