Bài 4: Nguyên tố:

program kiem_tra_nguyeto;

uses crt;

var n:integer;

{---Chuong-trinh-con---}

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;

       exit(true);

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap n: ');

       if ktnt(n) then write(n,' la so nguyen to')

              else write(n,' khong phai la so nguyen to');

       readln;

end.

Bài 4: Đếm chẵn

program dem_chan;

uses crt;

var n:integer;

{---Chuong trinh-con---}

function demc(k:integer):integer;

var i:integer;

begin

       demc:=0;

       for i:=1 to k do

              if i mod 2=0 then demc:=demc+1;

end;

{---Chuong trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       write('Tu 1 den ',n,' co ',demc(n),' so chan');

       readln;

end.

Bài 5: Đếm ler chia hết cho 5

program dem_le_chiahet5;

uses crt;

var n:integer;

{---Chuong trinh-con---}

function deml(k:integer):integer;

var i:integer;

begin

       deml:=0;

       for i:=1 to k do

              if (i mod 2=1) and (i mod 5=0)  then deml:=deml+1;

end;

{---Chuong trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       write('Tu 1 den ',n,' co ',deml(n),' so le chia het cho 5');

       readln;

end.

Bài 4:

uses crt;
var n:longint;
//Chuong trinh con
function nt(a:longint):boolean;
var i:longint;
begin
   i:=2;
   while(a>1)and(a mod i<>0)do inc(i);
   nt:=i=a;
end;
//Chuong trinh chinh
begin
clrscr;
   write('N=');readln(n);
   if nt(n) then 
      writeln('n la so nguyen to') else writeln('n khong la so nguyen to');  
readln;
end.

Bài 5:

uses crt;
var n:longint;
//Chuong trinh con
function dem(a:longint):longint;
var i:longint;
begin
   dem:=0;
   for i:=1 to a Do 
      if i mod 2=0 then inc(dem);
end;
//Chuong trinh chinh
begin
clrscr;
   write('N=');readln(n);
   writeln('Trong khoang tu 1 den N co ',dem(n),' so chan');
readln;
end.

Bài 6:

uses crt;
var n:longint;
//Chuong trinh con
function dem(a:longint):longint;
var i:longint;
begin
   dem:=0;
   for i:=1 to a Do 
      if (i mod 2=1)and(i mod 5=0) then inc(dem);
end;
//Chuong trinh chinh
begin
clrscr;
   write('N=');readln(n);
   writeln('Trong khoang tu 1 den N co ',dem(n),' so le chia het cho 5');
readln;
end.