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
