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.