viết chương trình kiểm tra cần cộng bao nhiêu số tự nhiên n đầu tiên để nhận được tổng nhỏ nhất lớn hơn 500
trả lời gấp cho mình với :3 mình cảm ơn :33
viết chương trình kiểm tra cần cộng bao nhiêu số tự nhiên n đầu tiên để nhận được tổng nhỏ nhất lớn hơn 500
trả lời gấp cho mình với :3 mình cảm ơn :33
program tong_nhonhat;
uses crt;
var n,s:integer;
begin
clrscr;
n:=0; s:=0;
while s<=500 do
begin
n:=n+1;
s:=s+n;
end;
write(‘Can cong ‘,n,; so va khi do tong bang ‘,s);
readln;
end.
var i,t:byte;
begin
t:=1;i:=1;
while t<500 do begin
i:=i+1;
t:=t+i;
end;
write(i);
readln;
end.