Question

Viết chương trình tính tổng s = 2021 + 1 + 2 + 3 + … + n, với n nguyên dương.

Answer 1

uses crt;

var i,n:integer;

s:longint;

begin 

clrscr;

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

s:=2021;

for i:=1 to n do

s:=s+i;

writeln('s=', s);

readln;

end.