viết ct nhập vào số từ nhiên n từ bàn phím và kiểm tra xem n có phải là số nguyên tố ko?(dùng lệnh while...do)

2 câu trả lời

$\text{Tham khảo}$ 

#gửi bạn bài nhá

uses crt;
var n,i : longint;
begin
write('nhap n : ' );
readln(n);
i:=2;
while ( n mod i <> 0 ) and (i<n) do
i:=i+1;
if(i<n) then write( 'khong la so nguyen to ',n)
else
 write('la so nguyen to ',n);
 readln;
 end.

#xin hay nhất , 5 sao , tym