Sử dụng lệnh "For...do" viết chương trình tính tổng các số tự nhiên lẻ nhỏ hơn hoặc bang n với n là số tự nhiên bất kì được nhập từ bàn phím
S = 1+3+5+...+n
Giúp mình với ạ!
uses crt; var i,N,S: integer; begin write('Nhap so N:'); readln(N); S:=0; for i:=1 to N do begin if i mod 2<>0 then S:=S+i; end; write('Tong cua',N,'so le tu nhien dau tien la:',S);readln; end.