NOIP2016普及组复赛第一题——买铅笔

程序如下：

var

  i,n,m:longint;
  a:array[0..3,0..2]of longint;
begin
  m:=maxlongint;
  readln(n);
  for i:=1 to 3 do
  begin
    readln(a[i,1],a[i,2]);   //可以边输入，边计算，不会影响。
    if n>a[i,1] then   //如果套装的笔数>=人数，则不必继续，可以直接带入。
      if (n mod a[i,1])<>0 then a[i,0]:=(n div a[i,1]+1)*a[i,2] 
        else a[i,0]:=n div a[i,1]*a[i,2]
      else a[i,0]:=a[i,2];
  end;
  for i:=1 to 3 do
    if a[i,0]<m then m:=a[i,0];   //寻找最少的钱。
  writeln(m);

end.

备注:此题数据不大，可以大胆去做！！！