标签：for 题解 min read 模拟 write 枚举 end max
题解：
模拟。
枚举选择第几种铅笔，算出价格，min一下就行了。
var n,ans,i,x,y:longint;
begin
readln(n);
ans:=maxlongint;
for i:=1 to 3 do
begin
read(x,y);
if ((n-1)div x+1)*y<ans then ans:=((n-1)div x+1)*y;
end;
write(ans);
end.
标签：for 题解 min read 模拟 write 枚举 end max
原文地址：http://www.cnblogs.com/huzhaoyang/p/6082340.html
