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.