EGG - Thả trứng , trò giải trí tuổi teen

Tác giả: RR

Ngôn ngữ: Pascal

{$R+,Q+}
program EGG;
const
  FINP='';
  FOUT='';
  MAXN=1001;
var
  m,n,test,t:longint;
  d:array[0..MAXN,0..MAXN] of longint;
  f1,f2:text;
procedure openF;
begin
  assign(f1,FINP); reset(f1);
  assign(f2,FOUT); rewrite(f2);
end;
procedure closeF;
begin
  close(f1); close(f2);
end;
procedure init;
var
  i,j:longint;
begin
  for i:=1 to MAXN do
    begin
      d[i,1]:=i;
      for j:=1 to MAXN do
        begin
          d[i,j]:=d[i-1,j]+d[i-1,j-1]+1;
          if d[i,j]>1000 then d[i,j]:=1500;
        end;
    end;
end;
procedure ans(m,n:longint);
var
  i:longint;
begin
  for i:=1 to MAXN do
    if d[i,n]>=m then
      begin
        writeln(f2,i);
        exit;
      end;
end;
begin
  openF;
  init;
  readln(f1,t);
  for test:=1 to t do
    begin
      readln(f1,n,m);
      ans(m,n);
    end;
  closeF;
end.

Download