记录编号 133805 评测结果 AAAAAAAAAA
题目名称 [USACO Nov07] 阅读大赛 最终得分 100
用户昵称 Gravatarkamisama 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2014-10-28 20:33:53 内存使用 0.17 MiB
显示代码纯文本
var
  n,k,i,s,t,ans,r,v,a:longint;
  
begin
  assign(input,'read.in');
  assign(output,'read.out');
  reset(input);rewrite(output);
  read(n,k);
  for i:=1 to k do
  begin
    read(s,t,r);
    v:=s*t;
    a:=n div v;
    if (n mod v=0) and (a>0) then dec(a); 
    ans:=a*r;
    if n mod s=0 then ans:=ans+(n div s) else ans:=1+ans+(n div s);
    writeln(ans);
  end;
  close(input);close(output);
end.