比赛代码 - COGS

比赛	啦啦啦,一星期两次的水题赛	评测结果	AWAWAAAWWW
题目名称	阅读大赛	最终得分	50
用户昵称	kamisama	运行时间	0.003 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-28 18:49:03

显示代码纯文本

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;
    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.