记录编号 24648 评测结果 AAAAAAAAAA
题目名称 双亲数 最终得分 100
用户昵称 Gravatarwo shi 刘畅 是否通过 通过
代码语言 Pascal 运行时间 2.377 s
提交时间 2011-04-13 10:15:41 内存使用 7.74 MiB
显示代码纯文本
var
  i,j:longint;
  n,m,d:int64;
  f:array[0..1000000]of int64;

function min(x,y:longint):longint;
begin
  if x<y then exit(x);
  exit(y);
end;

begin
  assign(input,'parents.in'); reset(input);
  assign(output,'parents.out'); rewrite(output);
  readln(n,m,d);
  for i:=min(n,m) downto d do
  begin
    f[i]:=(n div i)*(m div i);
    for j:=2 to min(n div i,m div i) do
    dec(f[i],f[i*j]);
  end;
  writeln(f[d]);
  close(input);
  close(output);
end.