viết chương trình tính tổng 100 số tự nhiên đầu tiên
2 câu trả lời
uses crt;
var i,tong:integer;
beign
clrscr;
tong:=0;
for i:=1 to 100 do tong:=tong+i;
writeln(tong);
readln
end.
uses crt;
var i,tong:integer;
beign
clrscr;
tong:=0;
for i:=1 to 100 do tong:=tong+i;
writeln(tong);
readln
end.