C1 viết chương trình tính Tổng 100 số tự nhiên Bằng câu lệnh for do while..... Do

While do

---

Program HuynhDucNhatDeThuongQuaDiA;
Uses crt;
Var HDNCute,i: longint;
Begin
        Clrscr;
        HDNCute:=0; i:=1;
        While i<=100 do
        Begin
                HDNCute:=HDNCute+i;
                inc(i);
        End;

        Write('S = ',HDNCute);
        Readln
End.

---

For do

---

Program HuynhDucNhatDeThuongQuaDiA;
Uses crt;
Var HDNCute,i: longint;
Begin
        Clrscr;
        For i:=1 to 100 do
                HDNCute:=HDNCute+i;

        Write('S = ',HDNCute);
        Readln
End.

---

Moahhhh <3 Yêu bạn 
Mèo méo meo mèo meo ~