Submission #3453934

---

Source Code Expand

var
	y,R,G,B,ans,sum,x,i:Longint;
function f(x,y:Longint):Longint;
begin
	if x>0 then f:=y*(y+1)div 2-x*(x-1)div 2 else if y>=0 then f:=y*(y+1)div 2+(-x)*(1-x)div 2 else f:=(-x)*(1-x)div 2-(-y)*(-y-1)div 2;
end;
begin
	read(R,G,B);
	ans:=1000000000;
	for y:=-400 to 200 do begin
		sum:=0;
		x:=R div 2;
		if R-y-100>x then x:=R-y-100;
		inc(sum,f(-x,R-x-1));
		x:=y;
		inc(sum,f(x,x+G-1));
		x:=B div 2;
		if 100-y-G<x then x:=100-y-G;
		inc(sum,f(-x,B-x-1));
		if sum<ans then ans:=sum;
	end;
	writeln(ans);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result