Pascal程序练习-狼找兔子

狼找兔子

时间限制: 10000ms内存限制: 1024kB

描述

一座山周围有n个洞,顺时针编号为0,1,2,...n-1.

而一只狼从0号洞开始,顺时针方向计数,每遇到m个洞就进洞找兔子.例如n=5,m=3,狼经过的洞依次为0,3,1,4,2,0.那么兔子有没有幸免的机会?如果有,该藏在哪儿?
输入

n m (<2.1*10^9)

输出

若兔子有幸免的机会则输出所有可以藏身的洞，输出洞的个数，反之，输出-1。

样例输入

5 1

样例输出

-1

参考代码

program psj004;
var
n,m,v:LongInt;
function max(a,b:LongInt):LongInt;
begin
begin
if a > b then
max := a
else
max := b
end;
end;
function min(a,b:LongInt):LongInt;
begin
begin
if a > b then
min := b
else
min := a
end;
end;
function gcd(a,b:LongInt):LongInt;
var
mx,mn,mm:LongInt;
begin
mx := max(a,b);
mn := min(a,b);
mm := mx mod mn;
begin
if mm = 0 then
gcd := mn
else
gcd := gcd(mm,mn)
end;
end;
begin
readln(n,m);
v := n - n div gcd(n,m);
begin
if v = 0 then
writeln(-1)
else
writeln(v)
end;
end.