tổng của 100 số đt:
var i,b:integer;
begin
b:=0;
for i:=1 to 100 do
b:=b+i;
writeln('Tong cua 100 so dt:', b);
readln;
end.
tổng của 100 số đt:
var i,b:integer;
begin
b:=0;
for i:=1 to 100 do
b:=b+i;
writeln('Tong cua 100 so dt:', b);
readln;
end.