corm2009 2013-08-21 22:03:00
点我顶贴
收藏
删除
查看状态 Show Status
题目:最大公约数和最小公倍数问题
状态: Accepted
测评机: Xeost[5]
得分: 100分
提交日期: 2010-11-12 16:42:00
有效耗时: 344毫秒
测试结果1: 通过本测试点|有效耗时156ms
测试结果2: 通过本测试点|有效耗时47ms
测试结果3: 通过本测试点|有效耗时47ms
测试结果4: 通过本测试点|有效耗时47ms
测试结果5: 通过本测试点|有效耗时47ms
提交代码: view sourceprint?
01.Program t1;
02.
Var m,x,y,ans,a,b,i,j:longint;
03.
Function zz(a,b:longint):longint;
04.
Begin
05.
if b=0 then exit(a);
06.
exit(zz(b,a mod b));
07.
end;
08.
Begin
09.
readln(x,y); if y mod x<>0 then begin Writeln(0); exit; end;
10.
m:=y div x; if m=1 then begin Writeln(1); exit; end;
11.
For i:=1 to trunc(sqrt(m)) do if m mod i=0 then begin
12.
a:=i; b:=m div i; if zz(a,b)=1 then inc(ans);
13.
end; writeln(ans*2);
14.
end.