1/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
s:=1;
For i:=1 to n do
Begin
If i mod 2=1 then
s:=s*i;
end;
Write('Tich so le co trong day la: ',s);
readln;
end.
2/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
for i:=1 to n do
If n mod i=0 then s:=s+1;
Writeln('So luong uoc chung cua so ',n,' la: ',s);
readln;
end.