本文主要是介绍NOIP2016普及组复赛第一题的AC程序加题解pascal，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
P老师需要去商店买n支铅笔作为小朋友们参加NOIP的礼物。她发现商店一共有 3种包装的铅笔，不同包装内的铅笔数量有可能不同，价格也有可能不同。为了公平起 见，P老师决定只买同一种包装的铅笔。商店不允许将铅笔的包装拆开，因此P老师可能需要购买超过n支铅笔才够给小朋 友们发礼物。现在P老师想知道，在商店每种包装的数量都足够的情况下，要买够至少n支铅笔*最少*需要花费多少钱。
var
n,i,a,b:longint;
w,tao:int64;//w是只买一种铅笔所需的钱，tao是最少要花的钱
begin
readln(n);//P老师要多少只铅笔
tao:=100000000;//赋值：最少要花的钱
for i:=1 to 3 do//3种铅笔
begin
readln(a,b);// a是这种铅笔的数量，b是这种包装的价格
if n mod a=0 then w:=b*(n div a) //如果n是a的倍数那么就计算买这种铅笔要的钱
else w:=b*(n div a +1);//如果n不是a的倍数那么就多买一袋这种铅笔，并计算价钱
if w<=tao then tao:=w;//找出最少要花多少钱
end;
write(tao);//输出
end.
在程序中，b即每袋铅笔的价格，a是有每袋多少铅笔。
于是得出这样一个模型：n（所需铅笔数）除以 a
但显然能看出，这个对于n不是a的倍数的情况不管用，所以加入非倍数情况：a
对n求余，若余数为零则正常执行，若余数不为零则需要多买一袋。
最后，将购买每袋铅笔以使铅笔数量达到n的钱数记起来，判断，若这钱数比之前的少，则放入，最后输出最小值。以上就是关于NOIP2016普及组第一题的题解。
这篇关于NOIP2016普及组复赛第一题的AC程序加题解pascal的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
