记录编号	136346	评测结果	AAAAAAAAAA
题目名称	1417.[NOIP 2001]最大公约数和最小公倍数问题	最终得分	100
用户昵称	传奇	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2014-11-02 20:38:55	内存使用	0.17 MiB

program cojs1417;
var
  i,m,q,p:longint;
function gcd(a,b:longint):longint;
var
  r:longint;
begin
  while  b<>0 do
    begin
      r:=b; b:=a mod b; a:=r;
    end;
  exit(a);
end;
begin
  assign(input,'gcdpro.in');
  assign(output,'gcdpro.out');
  reset(input);
  rewrite(output);

  m:=0;
  readln(p,q);
  if q mod p<>0 then
    begin
      writeln(0);
      halt;
    end;
  q:=q div p;
  for i:=1 to q do
    if q mod i=0 then
      if gcd(i,q div i)=1 then
        inc(m);
  writeln(m);

  close(input);
  close(output);
end.