记录编号 48287 评测结果 AAAAAAAAAA
题目名称 漂亮字串 最终得分 100
用户昵称 Gravatar亟隐 是否通过 通过
代码语言 Pascal 运行时间 0.015 s
提交时间 2012-11-05 14:28:45 内存使用 0.17 MiB
显示代码纯文本
var     x,y,l,r:qword;

function min(x,y:qword):qword;
begin
        if x>y then exit(y) else exit(x);
end;

procedure init;
begin

end;

function deal:qword;
begin
        if min(x,l)=0 then exit(min(y,r));
        if min(y,r)=0 then exit(min(x,l));
        if x>l*(y+1) then exit(y+(y+1)*l);
        if y>r*(x+1) then exit(x+(x+1)*r);
        exit(x+y);
end;

procedure work;
begin
        while not eof do
        begin
                readln(x,y,l,r);
                writeln(deal);
        end;
end;

begin
assign(input,'bs.in');reset(input);
assign(output,'bs.out');rewrite(output);
        init;
        work;
close(input);close(output);
end.