Lập trình để đưa ra màn hình các số nguyên tố trong đoạn [n1,n2], trong đó các số n1,n2 là các số tự nhiên nhập vào từ bàn phím. Có bao nhiêu số như vậy
2 câu trả lời
uses crt;
var l, r, cnt, i: longint;
function prime(n: longint): boolean;
var i: longint;
begin
if n < 2 then exit(false);
if n < 4 then exit(true);
if (n mod 2 = 0) or (n mod 3 = 0) then exit(false);
i:=5;
while i <= trunc(sqrt(n)) do
begin
if(n mod i = 0) or (n mod (i + 2) = 0) then exit(false);
inc(i, 6);
end;
exit(true);
end;
begin
clrscr;
read(l, r);
for i:=l to r do
if prime(i) then
begin
write(i, ' ');
inc(cnt);
end;
writeln(#13#10, cnt);
readln; readln;
end.
Câu hỏi trong lớp
Xem thêm
