Question

VCT tính tổng của các số tự nhiên lẻ nhỏ hơn N với N là số nguyên dương nhập từ bàn phím

Answer 1

var           S,i,n:integer;
begin
              write('Nhap n:');readln(n);
              S:=0;
              for i:=1 to n-1 do if i mod 2<>0 then S:=S+i;
              write(S);
              readln;
end.

Chúc bạn học tốt!