Question

sử dụng câu lệnh while... do viết chương trình tìm n nhỏ nhất để tổng đầu tiên lớn hơn 100

Mn giúp mình với ạ :<

Answer 1

uses crt;

var n,t:integer;

begin

clrscr;

n:=0; t:=0;

while t<=100 do

begin

n:=n+1;

t:=t+n;

end;

writeln(n);

readln;

end.