Bài 4: Viết chương trình tính và đưa ra màn hình tổng S=1+3+5+ ... +(2N-1) (N nhập vào từ bàn phím) Bài 5: Viết chương trình tính và đưa ra màn hình tổng S=2+4+6+ ... +2N (N nhập vào từ bàn phím) Bài 6: Viết chương trình tính và đưa ra màn hình tổng S=-1+2-3+ ... +[(-1)^n] n (n nhập vào từ bàn phím)

`4)`

uses crt;

var n,i,s:longint;

begin

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

for i:=1 to n do

s:=s+(2*i-1);

write('s= ',s);

readln;

end.

`5)` 

uses crt;

var n,i,s:longint;

begin

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

for i:=1 to n do

s:=s+2*i;

write('s= ',s);

readln;

end.

`6)`

uses crt;

var i,s,n:integer;

begin

clrscr;

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

if n>0 then

begin

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s-i

else s:=s+i;

writeln(s);

end

else writeln('vui long nhap lai');

readln;

end.

4.

var n,i,s:longint;

begin

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

for i:=1 to n do

s:=s+(2*i-1);

write('s= ',s);

readln;

end.

5. 

var n,i,s:longint;

begin

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

for i:=1 to n do

s:=s+2*i;

write('s= ',s);

readln;

end.