kiểm tra n có phải là số nguyên tố hay ko ko dúng vòng lặp(n nhập từ bạn phím);
2 câu trả lời
program bai_giai;
uses crt;
var n,kt:longint;
begin
clrscr;
write('nhap n:');readln(n);
kt:=round(sqrt(n));
if(n=2)or(n mod kt<>0)then write('n la so nguyen to')else write('n ko la so nguyen to');
readln
end.
uses crt;
var n:longint;
function nt(i:longint):boolean;
begin
if i=trunc(sqrt(n))+1 then exit(true);
if n mod i=0 then exit(false);
exit(nt(i+1));
end;
begin
clrscr;
write('Nhap n: ');readln(n);
if (n>1)and(nt(2)) then writeln('n la so nguyen to') else
writeln('n khong la so nguyen to');
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề kiểm tra giữa kì 2 - đề số 5 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 4 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 3 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 2 Môn anh English Discovery 6 có lời giải chi tiết
- Đề kiểm tra giữa kì 2 - đề số 1 Môn anh English Discovery 6 có lời giải chi tiết
