2 câu trả lời
program nguyen_to;
uses crt;
var n,i,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=2 to n-1 do
if n mod i=0 then d:=d+1;
if d=0 then write(n,' la so nguyen to')
else write(n,' khong la so nguyen to');
readln;
end.
Ví dụ: N = 19 Kết quả là: 19 la so nguyen to
N = 33 Kết quả là: 33 khong phai la so nguyen to
Yêu cầu: Input: N, là số tự nhiên bất kỳ.
Output: Trả lời “N la so nguyen to”
hoặc “N khong phai la so nguyen to” tùy theo N.
Lưu ý: Số nguyên tố là số chỉ có thể chia hết cho 1 và chính nó ( N ).
Ngược lại, N là không phải là số nguyên ==> N chia hết cho một số trong khoảng từ 2 đến (N-1).
áp dụng và làm ik
xin hay nhất ạ !
@mun
Câu hỏi trong lớp
Xem thêm
