Câu 1 : Viết chương trình in ra tổng các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập từ bàn phím )
TL :
Program insole ;
Uses crt ;
Var s , i , n : integer
Begin
Clrscr ;
Write ( ' nhap so n = ' ) ; readln ( n )
S := 0 ;
For i : = 1 to n do
If i mod 2 = 1 then s := s + i ;
Writeln ( ' tong cac so le nho hon ' , n , ' la : ' , s ) ;
Readln
End