Viết CT nhập vào số N. Xét xem N có là số nguyên tố không

0 bình luận về “Viết CT nhập vào số N. Xét xem N có là số nguyên tố không”

1. program ct;

   uses crt;

   var i,n:integer;

   begin

   clrscl;

   write(‘nhap so:’); 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(n,’ la so nguyen to’) else writeln(n,’ khong phai so nguye to’);

   end;

   readln;

   end.

   Trả lời

2. var n,x,y: integer ( ở đây khuyên bạn nên dùng integer thay cho longint vì sẽ đỡ tốn bộ nhớ hơn )

   begin

   writeln (‘ Nhap n : ‘); 

   readln(n);

   x:=0

   for y:=1 to n do 

   if n mod y = 0 then k:=k+1 ;

   if k:=2 then writeln(‘ n la so nguyen to ‘) else writeln(‘ n khong la so nguyen to ‘);

   readln

   end,

   Trả lời