Bài 1:
program nguyen_to;
uses crt;
var n,m,i:integer;
{---Ham-nguyen-to---}
function ktnt(k:integer):boolean;
var r:integer;
begin
ktnt:=false;
if k<2 then exit;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit;
ktnt:=true;
end;
{---CT-chinh---}
BEGIN
clrscr;
write('Nhap n: '); readln(n);
write('Nhap m: '); readln(m);
for i:=n to m do
if ktnt(i) then write(i,' ');
readln;
end.
Bài 2:
program nguyen_to;
uses crt;
var m,i,d:integer;
{---Ham-nguyen-to---}
function ktnt(k:integer):boolean;
var r:integer;
begin
ktnt:=false;
if k<2 then exit;
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit;
ktnt:=true;
end;
{---CT-chinh---}
BEGIN
clrscr;
write('Nhap m: '); readln(m);
i:=2; d:=0;
while d<m do
begin
if ktnt(i) then
begin
write(i,' ');
d:=d+1;
end;
i:=i+1;
end;
readln;
end.
Bài 3:
program ntcn;
var m,n:integer;
{---Ham-ucln---}
function ucln(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
ucln:=m;
end;
{---CT-chinh---}
BEGIN
clrscr;
write('Nhap m: '); readln(m);
write('Nhap n: '); readln(n);
if ucln(m,n)=1 then write('La hai so nguyen to cung nhau')
else write('Khong phai la hai so nguyen to cung nhau');
readln;
end.