讨论 / pascal题解^_^
雪虎 2017-10-14 13: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.

查看更多回复
提交回复