Hãy viết chương trình pascal cho phép nhập vào 1 số tự nhiên n và kiểm tra xem n có phải là số nguyên tố hay không?

Question

thanhthuy · Answer

uses crt;

var i,n:integer;

begin clrscr;

readln(n);

i:=2;

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

if (i*i>n) and (n>=2) then writeln(‘n la so nguyen to’) else

writeln(‘n ko la so nguyen to’);

readln;

end.

tuyetnhung · Answer

program nguyen_to;

uses crt;

var n,i,d:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

d:=0;

for i:=1 to n do

if n mod i=0 then d:=d+1;

if d=2 then write(n,’ la so nguyen to’)

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

readln;

end.