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.

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