Câu 6 : Viết chương trình đếm số ước số của số nguyên N? (N được nhập vào từ bàn phím) Câu 8 : Viết chương trình đếm số các số chia hết cho 3 trong phạm vi từ 1 đến N? (N được nhập vào từ bàn phím)

Câu 6:

var n,d,i:longint;

begin

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

for i:= 1 to trunc(sqrt(n)) if n mod i = 0 then inc(d);

d:=d*2;

if sqrt(n)=trunc(sqrt(n)) then dec(d);

write('Uoc so la: ',d);

readln;

Câu 8:

var i,d,n:longint;

begin

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

for i:= 1 to n do

if i mod 3 = 0 then inc(d);

write('Tong la: ',d);

end.

Câu 1:

Program BTT;
Uses crt;
Var n: longint;

Function demuoc(a: longint): longint;
Var i,s: longint;
Begin
        s:=0;
        For i:=1 to a do
                If a mod i = 0 then inc(s);
        demuoc:=s;
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        Write(demuoc(n));
        Readln
End.

Câu 2: 

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do 

               If i mod 3 = 0 then inc(s);
        Write(s);
        Readln
End.