程序如下:
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.
备注:此题数据不大,可以大胆去做!!!