các bạn giúp mình với viết chương trình tính tổng của n số tự nhiên đầu tiên (sử dụng vòng lặp for)
2 câu trả lời
var n,i,s:longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
s:=s+i;
write('S = ',s);
readln
end.
Program BTH;
Uses Crt;
var a,b,c:longint;
Begin
clrscr;
write('Nhap so n: ');readln(a);
For b:=1 to a do
c:=c+b;
write('Tong day so tren la: ',c);
readln;
End.