ơn giản thôi bạn ah
Chỉ cần 1 vòng lặp for cho i chạy từ 1 đến n ( với n nhập từ bàn phím)
Tong s= s+ i
Chương trình cụ thể:
Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.
Chúc bạn thành công!