Viết chương trình S=1+2+3+.....+N+.... Cho đến khi S=10 mũ 9
2 câu trả lời
uses crt;
var i,s:longint;
BEGIN
clrscr;
i:=1;
while s<1000000000 do
begin
s:=s+i;
inc(i);
end;
write('Tong S la:',s);
readln
END.
program tinhtong;
uses crt;
var S:int64;
n:longint;
begin
clrscr;
s:=0; n:=0;
while s<1000000000 do
begin
n:=n+1;
s:=s+n;
end;
write('N nho nhat la: ',n);
readln
end.
