比赛 啦啦啦,一星期两次的水题赛 评测结果 AAAAAAAAAA
题目名称 阅读大赛 最终得分 100
用户昵称 helloworld123 运行时间 0.005 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-10-28 19:42:16
显示代码纯文本
program cogs154;
var
  i,j,n,k:longint;
  tt,ans:longint;
  s,t,r,w:longint;
begin
  assign(input,'read.in'); reset(input);
  assign(output,'read.out'); rewrite(output);
   readln(n,k);
   for i:=1 to k do
    begin
    ans:=0;
      readln(s,t,r);
      tt:=n div s;
      if tt*s<n then inc(tt);
       if tt mod t =0 then w:=tt div t-1 else w:=tt div t;
       ans:=tt+w*r;
           writeln(ans);
    end;
  close(input); close(output);
end.