em hãy viết chương trình tính tổng các số tự nhiên từ 100 đến 1000 ( sử dụng vòng lặp xác định hoặc vòng lặp ko xác định)

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

1) Vòng lặp xác định:

program TongLmao;
uses crt;
var i,n,s: word;
begin
clrscr;
n:=1000; s:=0;
for i:=100 to n do s:=s+i;
writeln('Tong cac so tu nhien tu 1 den 100 la: ',s);
readln;
end.

2) Vòng lặp không xác định:

program TongLmao;
uses crt;
var i,n,s: word;
begin
clrscr;
i:=100; s:=0;
while (i<1001) do begin
s:=s+i; i:=i+1; end;
writeln('Tong cac so tu nhien tu 1 den 100 la: ',s);
readln;
end.

SAU KHI CHẠY, CẢ 2 CHƯƠNG TRÌNH ĐỀU CHO KẾT QUẢ NHƯ HÌNH!