雪虎 2017-10-13 22:58:19
点我顶贴
收藏
删除
var
i,j,k,m,x,y:longint;
max,n:int64;
begin
readln(m);
max:= maxlongint;
for i:=1 to 3 do
begin
read(x,y);
if x<>0 then begin
n:=m div x;
if m mod x<>0
then n:=n+1;
n:=n*y;
if n<max
then max:=n;
end;
end;
writeln(max)
end.