Sự dụng câu lệnh lặp for...do,viết chương trình tính tổng các số tự nhiên từ 1 đến 100
2 câu trả lời
Uses crt;
Var i, S : integer;
Begin
S:=0;
For i:= 1 to 100 do
S:=S+ i;
Writeln(S);
End.
Uses crt;
Var i, S : integer;
Begin
S:=0;
For i:= 1 to 100 do
S:=S+ i;
Writeln(S);
End.