var 
     s,t,r,n,i,k:longint;
 
function calc(a,b:longint):longint;
var c:longint;
begin
     c:=a div b;
	 if b*c<a then exit(c+1);
	 exit(c);
end;

function f(n,s,t,r:longint):longint;
begin
     if n<s*t then 
		 exit(calc(n,s));
	 exit(f(n-s*t,s,t,r)+t+r);
end;

begin
	 assign(input,'read.in');reset(input);
	 assign(output,'read.out');rewrite(output);
	 readln(n,k);
	 for i:=1 to k do begin
		 readln(s,t,r);
	     writeln(f(n,s,t,r));
	 end;
	 close(input);close(output);
end.