Sử dụng câu lệnh lặp for... do tính tổng 100 số tự nhiên đầu tiên
2 câu trả lời
uses crt;
var i,S:integer;
begin
clrscr;
S:=0;
for i:=1 to 100 do S:=S+i;
write(S);
readln
end.
uses crt;
var i,S:integer;
begin
clrscr;
S:=0;
for i:=1 to 100 do S:=S+i;
write(S);
readln
end.