1/ viết chương trình nhập n đếm xem từ 1->n có bao nhiêu số lẻ

Program tim_so_le;

Uses crt;

Var i,n,S:Integer;

Begin

  Clrscr;

  Write('Nhap n=');

  Readln(n);

  S:=0;

  For i:=1 To n Do If i mod 2 <>0 then S:=S+1;

  Writeln(S);

  Readln;

End.

2/ viết chương trình nhập n, in các ước số của n

Program tim_uoc;

Uses crt;

Var i,n:Integer;

Begin

  Clrscr;

  Write('Nhap n=');

  Readln(n);

  For i:=1 To n Do If n mod i=0 Then Write(i,',');

  Readln;

End.

3/ viết chương trình nhập n, kiểm tra xem n có bao nhiêu ước số

Program tim_uoc;

Uses crt;

Var i,n,S:Integer;

Begin

  Clrscr;

  Write('Nhap n=');

  Readln(n);

  S:=0;

  For i:=1 To n Do If n mod i=0 Then S:=S+1;

  Writeln(S);

  Readln;

End.

Hơi ít điểm đó bạn!!:3