viết chương trình tính tổng các số lẻ liên tiếp từ 1 đến n (n là giá trị nhập từ bàn phím).

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=1 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

program ct;

uses crt;

var n:integer;

      S:longint;

begin clrscr;

   writeln('Nhap so: '); readln(n);

     S:=0;

   for i:=1 to n do

     begin

        if i mod 2<>0 do

        S:=S+i;

     end;

   write('Tong cac so le la: ',S);

readln;

end.

Học tốt!