a215. 明明愛數數 | From: [61.170.133.133] | 發表日期 : 2015-07-26 17:58

var

  n,m,sum,ans:longint;

begin

  while not eof do begin

  readln(n,m);

  sum:=n;

  ans:=1;

  while sum<=m do begin;

  n:=n+1;

    sum:=sum+n;

    ans:=ans+1;

    end;

    writeln(ans);

  end;

end.