Question

tính tổng các số tự nhiên từ 100 đến 1000 (vòng lặp for do)

Answer 1

uses crt;

var i:integer;

s:real;

begin

clrscr;

s:=0;

for i:=100 to 1000 do 

 s:=s+i;

writeln(s:0:0);

readln;

end.