Viết phương trình tính tổng của 1000 số tự nhiên đầu tiên bằng cú pháp : while...do GIẢI GIÚP MÌNH NHÉ !!!! MIK CẢM ƠN TRƯỚC Ạ 📚📚📖🖋

2 câu trả lời

 code

program baitap;

uses crt;

var t,i:longint;

begin

t:=0;

i:=1;

while i<=1000 do

begin

t:=t+i;

i:=i+1;

end;

write('tong 1000 so tu nhien dau tien la:',t);

readln;

readln;

end.

uses crt;
var i,S:word;
begin
clrscr;
i:=1;
s:=0;
while i<1000 do
begin
S:=s+i;
i:=i+1;
end;
writeln(s);
readln
end.