Viết chương trình nhập số nguyên dương N từ bàn phím hãy kiểm tra xem N có là số nguyên tố hay không?
2 câu trả lời
uses crt;
var i.n.d:iinteger;
begin
clrscr;
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 snt') else write(n,' k l snt');
readln
end.
program ct;
uses crt;
var i,N,nt:integer;
begin clrscr;
write('Nhap so N: '); readln(N);
nt:=0;
for i:=1 to n do
if n mod i=0 then nt:=nt+1;
if nt=2 then writeln(N,' la so nguyen to')
else writen(N,' khong la so nguyen to');
readln;
end.
Học tốt!
Câu hỏi trong lớp
Xem thêm
