Question

em hãy viết chương trình tìm số n sao cho tổng các số từ 1 đến n nhỏ nhất và lớn hơn 1000 (biết số nguyên n được nhập từ bàn phím)

giúp mình với mai mình thi rồi ạaaaa

 

Answer 1

uses crt;

var n,i,s:integer;

begin

clrscr;

n:=1;

s:=0;

repeat

s:=s+n;

n:=n+1;

until s>1000;

writeln(n);

readln;

end.