program king;
var
n,x,i,j,k,l,a,b,c,m,ls1,ls2,max,t:longint;
q:char;
begin
assign(input,'king.in');
reset(input);
assign(output,'king.out');
rewrite(output);
readln(n,m,x);
max:=m;
for i:=1 to n do
begin
read(q);
while q<>' ' do read(q);
readln(a,b,c);
if c mod b=0 then ls1:=c div b else ls1:=c div b+1;
if m mod a=0 then ls2:=m div a else ls2:=m div a+1;
if ls1>=ls2 then begin writeln(i); halt; end;
m:=m-ls1*a;
m:=m+trunc((max-m)*x/100);
t:=t+ls1;
end;
writeln(t);
end.