比赛 啦啦啦,一星期两次的水题赛 评测结果 RRRRRRRRRR
题目名称 阅读大赛 最终得分 0
用户昵称 稠翼 运行时间 0.002 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-10-28 19:17:44
显示代码纯文本
program cogs154;
var
   n,m,i,a,b,c,t:longint;
procedure init;
begin
      assign(input,'read.in');reset(input);
      assign(output,'read.out');rewrite(output);
end;
procedure main;
begin
     readln(n,m);
     for i:=1 to m do
     begin
          readln(a,b,c);
          if n mod a=0 then t:=n div a
          else t:=trunc(n/a)+1;
          if t mod b=0 then t:=t+(t div b-1)*c else t:=t+(t div b)*c;
          writeln(t);
     end;
end;
begin
     main;
end.