记录编号 |
133825 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[USACO Nov07] 阅读大赛 |
最终得分 |
100 |
用户昵称 |
nzz |
是否通过 |
通过 |
代码语言 |
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.