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.