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