Question

tính tổng số tự nhien từ 1 đến 1000 ( sử dụng lẹnh for...do và câu lệnh while...do)

Answer 1

uses crt;

var i,s:longint;

begin

clrscr;

s:=0;

for i:=1 to 1000 do 

  s:=s+i;

writeln(s);

readln;

end.

Answer 2

program tongtu1den1000;

uses crt;

var n,s:longint;

begin

n:=1;s:=0;

while n<=1000 do

begin s:=s+n;n:=n+1; end;

writeln('tong la: ',s);

readln

end.