Bài 37:
program bai_giai;
uses crt;
var n,d,i:longint;
function ktnt(k:longint):boolean;
var r:longint;
begin
for r:=2 to trunc(sqrt(k)) do
if k mod r=0 then exit(false);
exit(true);
end;
BEGIN
clrscr;
write('Nhap n: '); readln(n);
i:=2; d:=0;
while d<n do
begin
if ktnt(i) then
begin
writeln(i); d:=d+1;
end;
if i=2 then i:=i+1 else i:=i+2;
end;
readln;
END.
Bài 38:
program bai_giai;
uses crt;
var n:longint;
function max(k:longint):byte;
var a,ln:byte;
begin
ln:=k mod 10; k:=k div 10;
while k<>0 do
begin
a:=k mod 10;
if a>ln then ln:=a;
k:=k div 10;
end;
exit(ln);
end;
function min(k:longint):byte;
var a,nn:byte;
begin
nn:=k mod 10; k:=k div 10;
while k<>0 do
begin
a:=k mod 10;
if a<nn then nn:=a;
k:=k div 10;
end;
exit(nn);
end;
BEGIN
clrscr;
write('Nhap n: '); readln(n);
write(max(n),' ',min(n));
readln;
END.
Bài 39:
program bai_giai;
uses crt;
var n:longint;
procedure xuly(k:longint);
var max,dem,a:byte;
begin
max:=k mod 10; dem:=0;
while k<>0 do
begin
a:=k mod 10;
if a>max then
begin
max:=a; dem:=0;
end;
if a=max then dem:=dem+1;
k:=k div 10;
end;
write(max,' ',dem);
end;
BEGIN
clrscr;
write('Nhap n: '); readln(n);
xuly(n);
readln;
END.
