Viết chương trình kiểm tra tính nguyên tố của số nguyên dương N

0 bình luận về “Viết chương trình kiểm tra tính nguyên tố của số nguyên dương N”

1. USES CRT;

   Var n: byte;

   Function SNT(X: longint): boolean;

   var nt: boolean;

   k: longint;

   begin

   nt:=x>1;

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

   if x mod k=0 then

   begin

   nt:=false;

   break

   end;

   SNT:=nt;

   end;

   begin

   write(‘Nhap so N=’); readln(n);

   if SNT(n)=true then writeln(n ,’ la so nguyen to.’)

   else writeln(n,’ khong phai so nguyen to.’);

   readln;

   end.

   Bình luận

2. Program songuyento;

   Uses crt;

   var i,n,so:Integer;

   Begin

   Clrscr;

   so:=0;

   write(‘Nhap so nguyen duong n’,n);

   Readln(n);

   for i:= 1 to n do if n mod i=0 then so:=so+1;

   if (n<2) or (so<>2) then writeln(n,’ khong phai la so nguyen to’)

   else if so=2 then writeln(n,’ la so nguyen to’);

   Readln

   End.

   Bình luận