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 ~