fence9.pas

Magio牛的usaco源代码

{
ID:maigoak1
PROG:fence9
}

program fence9;
const
  zero=1e-6;
var
  fin,fout:text;
  n,m,p,i,l,r:integer;
  ans:longint;
  t:real;
begin
  assign(fin,'fence9.in');
  reset(fin);
  readln(fin,n,m,p);
  close(fin);

  ans:=0;
  for i:=1 to m-1 do begin
    t:=i*n/m;
    if abs(t-round(t))<zero then
      l:=round(t)+1
    else
      l:=trunc(t)+1;
    t:=p-i*(p-n)/m;
    if abs(t-round(t))<zero then
      r:=round(t)-1
    else
      r:=trunc(t);
    inc(ans,r-l+1);
  end;

  assign(fout,'fence9.out');
  rewrite(fout);
  writeln(fout,ans);
  close(fout);
end.