T= 1+3+5+...+n giải giúp mình với lập chương trình

Do đề bạn là số lẻ(1,3,5...) nên cách làm như sau :

Var n: integer;.

s: longint;

BEGIN

repeat

write( 'Nhap n: '); readln(n);

until (n>=0)

; s:=0;

for i:=1 to n do if i mod 2 >< 0 then write(i:3);

s:=s+i; write('Tong cac so tu 1 toi ', n,' =', s); readln

Học tốt!

Chúc bn học tốt!

program oken;
uses crt;
var n,i,t:longint;
begin
        clrscr;
        write('nhap so n: '); readln(n);
        for i:=1 to n do
                if i mod 2=1 then t:=t+i;
        writeln('Tong cac so le tu 1 den ',n,': ',t);
        readln;
end.