mn giải chi tiết giúp e đc hông ạ viết chương trình tính tổng sau: a, S= 1 + 2+3+......+50 b, S= 2+3+4+......+55

a)

var s,i:longint;

begin

for i:=1 to 50 do

s:=s+i;

write('Tong tu 1 den 50 la: ',s);

readln;

end.

b)

var s,i:longint;

begin

for i:=1 to 55 do

s:=s+i;

write('Tong tu 1 den 55 la: ',s);

readln;

end.

Program BTT;
Uses crt;
Var i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 50 do s:=s+i;
        Write(s);
        Readln
End.

---

Program BTT;
Uses crt;
Var i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=2 to 55 do s:=s+i;
        Write(s);
        Readln
End.