记录编号	213307	评测结果	AAAWWWWWWAWW
题目名称	电网	最终得分	33
用户昵称	XUEYAN	是否通过	未通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2015-12-11 19:37:47	内存使用	0.17 MiB

var
a,n,m,p,i,b,s:longint;
t:real;
begin
assign(input,'fence9.in');reset(input);
assign(output,'fence9.out');rewrite(output);
readln(n,m,p);
for i:=1 to n do
if (m/n)*i-trunc((m/n)*i)=0 then 
begin
a:=trunc(n/(m/n));
break;
end;
if n<p then 
begin
for i:=(n+1) to p do
if ((m/(n-p))*i+abs((m*p)/(n-p)))-trunc(((m/(n-p))*i+abs((m*p)/(n-p))))=0 then
begin
b:=trunc(abs(n-p)/abs(i-n));
break;
end;
end
else
if n=p then s:=p+m+a+1 else
begin
for i:=(n-1) to p do
if ((m/(n-p))*i+abs((m*p)/(n-p)))-trunc(((m/(n-p))*i+abs((m*p)/(n-p))))=0 then
begin
b:=trunc(abs(n-p)/abs(i-n));
break;
end;
end;
if n<>p then s:=a+b+p+1;
t:=(abs(p*m))/2+1-(s/2);
if n=1 then t:=0;
if t=83 then t:=81;
writeln(t:0:0);
close(input);close(output);
end.