Viết chương trình tính tổng s=1+3+5+...+n (n nhập trên bàn phím)

Lời giải:

program bai1;

var n,i,s:longint;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('Tong la ',s);

readln

end.