Nhập vào hai số nguyên dương a và b,in ra các số nguyên tố trong khoảng từ a đến b
Nhập vào hai số nguyên dương a và b,in ra các số nguyên tố trong khoảng từ a đến b
By Audrey
By Audrey
Nhập vào hai số nguyên dương a và b,in ra các số nguyên tố trong khoảng từ a đến b
uses crt;
var a,b,i:longint;
{—Chuong-trinh-con—}
function scan(n:longint):boolean;
var j:longint;
begin
if n<2 then exit(false);
for j:=2 to trunc(sqrt(n)) do if n mod j = 0 then exit(false);
scan:=true;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap a,b: ‘); readln(a,b);
for i:=a to b do if scan(i) then write(i,’ ‘);
readln;
END.
program nguyen_to;
uses crt;
var a,b,i:integer;
{—Ham-KTNT—}
function ktnt(n:integer):boolean;
var r:integer;
begin
ktnt:=false;
if n<2 then exit;
for r:=2 to trunc(sqrt(n)) do
if n mod r=0 then exit;
ktnt:=true;
end;
{—CT-chinh—}
BEGIN
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
for i:=a to b do
if ktnt(i) then write(i,’ ‘);
readln;
end.