记录编号 133825 评测结果 AAAAAAAAAA
题目名称 [USACO Nov07] 阅读大赛 最终得分 100
用户昵称 Gravatarnzz 是否通过 通过
代码语言 Pascal 运行时间 0.038 s
提交时间 2014-10-28 20:39:00 内存使用 0.15 MiB
显示代码纯文本
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=0 then exit(-r);
     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.