2. Viết chương trình nhập vào 1 số nguyên n, kiểm tra xem n có phải số nguyên tố hay không

0 bình luận về “2. Viết chương trình nhập vào 1 số nguyên n, kiểm tra xem n có phải số nguyên tố hay không”

1. program xt;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

   write(‘nhap vao so nguyen:=’);readln(n);

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

   begin

   i:=2;

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

   if i=n then writeln(‘so nguyen to la:’,n) else writeln(‘khong phai la so nguyen to:’,n);

   end;

   readln

   end.

   Bình luận

2. Program nguyento;

   Uses Crt;

   Var n,d,k:longint;

   Begin Clrscr;

   write(‘n=’);

   Readln(n);

   k:=0;

   For d:=1 to n do

   If n mod d = 0 then

   k:=k+1;

   If k=2 then

   write (‘n la so nguyen to’);

   Readln;

   End.

   Bình luận