*Chỉ có bé hơn n, bé hơn hoặc bằng n thôi nhé bạn, chứ lớn hơn n thì tổng = $\infty$
$----------------$
*Bé hơn n:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); read(n);
for i:=1 to n-1 do inc(s,i);
writeln('Tong: ',s);
readln
end.
*Bé hơn hoặc bằng n:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); read(n);
for i:=1 to n do inc(s,i);
writeln('Tong: ',s);
readln
end.
*Khác ở chỗ là bé hơn hoặc bằng n là đến n, còn bé hơn n là đến n-1
