viết chương trình nhập vào N số nguyên kiểm tra xem N có là số nguyên tố
2 câu trả lời
uses crt;
var n,i,dem:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
if n mod i = 0 then inc(dem);
if dem=2 then write(n,' la so nguyen to') else write(n, ' khong phai la so nguyen to');
readln
end.
program Tin_hoc;
uses crt;
var i,n,k:integer;
begin
clrscr;
write('N=');readln(n);
k:=0;
for i:= 1 to n do if n mod i = 0 then k:=k+1;
if k=2 then writeln(n,' la so nguyen to') else writeln(n,' khong phai la so nguyen to');
readln;
end.
CHO MIK CÂU TLHN NHA
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
