VIẾT CHƯƠNG TRÌNH IN RA CÁC SỐ LẺ NHỎ HƠN HOẶC BẰNG N

uses crt;

var x,i,n: integer;

Begin

Clrscr;

Write(‘Nhap so n =’); readln(n);

x:= 0;

For i:=1 to n do if i mod 2 =1 then x:= x+i;

Writeln(‘Tong cac so le nho hon ‘,n,’ la: ‘,x);

readln

end.

# Hok tốt!