2 câu trả lời
program S_M;
uses crt;
var s,m,n:integer;
begin
clrscr;
write('Nhap m: '); readln(m);
S:=0; n:=0;
while S<m do
begin
n:=n+1;
S:=S+n;
end;
write('So n la: ',n-1);
readln;
end.
*in ra n-1 vì khi tính tổng thì s sẽ lớn hơn hoặc bằng m, và để thỏa mãn s<m thì in ra trước nó là n-1
uses crt;
var s:real;
n,m:qword;
BEGIN
clrscr;
write('Nhap M:'); readln(m);
n:=0; s:=0;
while s<m do
begin
inc(n);
s:=s+n;
end;
write(n-1);
readln
END.
Chúc bạn học tốt!
