Bài 4: Viếtchươngtrìnhtínhtổng. S=2021 + 3 + 5 + 7 + ….+ (2*n-1) S=2021+1/2+1/4+…+1/2*n Với n làsốnguyênđượcnhậpvàotừbànphím a. Sửdụngcâulệnhlặpfor ..

Program Tong;

var n,i: integer;

s: longint;

begin

write(‘Nhap N: ‘); readln(n);

s:=2021;

for i:=0 to n do s=s+(2*i+1);

Write(‘S= ‘,s);

readln;

end.

Cách 2: Dùng While do

Program tong;

uses crt;

var s,i,n:integer;

begin

clrscr;

write(‘Nhap n=’); readln(n);

s:=2021;

i:=0;

while i<=n do 

  begin

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

i:=i+1;

end;

writeln(s);

readln;

end.