Cần cộng bao nhiêu số tự nhiên đầu tiên để tổng nhỏ nhất lớn hơn n, với n được nhập từ bàn phím
2 câu trả lời
uses crt;
var i, n, s, d : integer;
begin
clrscr;
write('nhap n : '); readln(n);
s := 0; i := 1; d := 0;
while s <= n do
begin
s := s + i;
i := i + 1;
d := d + 1;
end;
write('can cong ', d ,' so tu nhien');
readln
end.
uses crt;
var n
begin
clrscr;
write('nhap n: '); readln (n);
repeat
i:=i+1;
s:=s+i;
d:=d+1;
until s>n;
writeln ('can cong ',d,' so tu nhien dau tien');
readln;
end.
