记录编号 48263 评测结果 AAAAAAAAAA
题目名称 漂亮字串 最终得分 100
用户昵称 GravatarAbel·S 是否通过 通过
代码语言 Pascal 运行时间 0.014 s
提交时间 2012-11-05 12:43:31 内存使用 0.17 MiB
显示代码纯文本
program cojs_p486;
var
	i,j:longint;
	l,c0,c1,m0,m1,l0,l1:int64;
procedure ass;
begin
	assign(input,'bs.in');
	assign(output,'bs.out');
	reset(input);
	rewrite(output);
end;
procedure cls;
begin
	close(input);
	close(output);
end;
procedure swap(var a,b:int64);
var
	t:int64;
begin
	t:=a;
	a:=b;
	b:=t;
end;
begin
	ass;
	while not(eof) do
	begin
		readln(c0,c1,m0,m1);
		if c0>c1
			then begin swap(c0,c1); swap(m0,m1); swap(l0,l1); end;
		if (m0=0) and (m1<>0)
			then begin if m1<c1 then l:=m1 else l:=c1; writeln(l); end;
		if (m1=0) and (m0<>0)
			then begin if m0<c0 then l:=m0 else l:=c0; writeln(l); end;
        if (m1=0) and (m0=0)
            then writeln('0');
		if (m1<>0) and (m0<>0)
		then begin 
			if m1*(c0+1)<=c1
				then l:=c0+(c0+1)*m1
				else l:=c0+c1;
			writeln(l);
		end;
	end;
	cls;
end.