pascal 语言 Hankson 的趣味题2．Hankson 的趣味题(son.pas/c/cpp)【问题描述】Hanks 博士是BT (Bio-Tech,领域的知名专家,他的儿子名叫Hankson.现在,刚刚放学回家的Hankson 正在思考一个有趣的问题.今天在课

pascal 语言 Hankson 的趣味题2．Hankson 的趣味题(son.pas/c/cpp)【问题描述】Hanks 博士是BT (Bio-Tech,领域的知名专家,他的儿子名叫Hankson.现在,刚刚放学回家的Hankson 正在思考一个有趣的问题.今天在课
pascal 语言 Hankson 的趣味题
2．Hankson 的趣味题
(son.pas/c/cpp)
【问题描述】
Hanks 博士是BT (Bio-Tech,领域的知名专家,他的儿子名叫Hankson.现
在,刚刚放学回家的Hankson 正在思考一个有趣的问题.
今天在课堂上,老师讲解了如何求两个正整数c1 和c2 的最大公约数和最小公倍数.现
在Hankson 认为自己已经熟练地掌握了这些知识,他开始思考一个“求公约数”和“求公
倍数”之类问题的“逆问题”,这个问题是这样的：已知正整数a0,a1,b0,b1,设某未知正整
数x 满足：
1． x 和a0 的最大公约数是a1；
2． x 和b0 的最小公倍数是b1.
Hankson 的“逆问题”就是求出满足条件的正整数x.但稍加思索之后,他发现这样的
x 并不唯一,甚至可能不存在.因此他转而开始考虑如何求解满足条件的x 的个数.请你帮
助他编程求解这个问题.
【输入】
输入文件名为 son.in.第一行为一个正整数n,表示有n 组输入数据.接下来的n 行每
行一组输入数据,为四个正整数a0,a1,b0,b1,每两个整数之间用一个空格隔开.输入
数据保证a0 能被a1 整除,b1 能被b0 整除.
【输出】
输出文件 son.out 共n 行.每组输入数据的输出结果占一行,为一个整数.
对于每组数据：若不存在这样的 x,请输出0；
若存在这样的 x,请输出满足条件的x 的个数；
全国信息学奥林匹克联赛（NOIP2009）复赛提高组
第 4 页共 7 页
【输入输出样例】
son.in son.out
2
41 1 96 288
95 1 37 1776
6
2
【说明】
第一组输入数据,x 可以是9、18、36、72、144、288,共有6 个.
第二组输入数据,x 可以是48、1776,共有2 个.
【数据范围】
对于 50%的数据,保证有1≤a0,a1,b0,b1≤10000 且n≤100.
对于 100%的数据,保证有1≤a0,a1,b0,b1≤2,000,000,000 且n≤2000.
我的程序有点错误 那个大虾看看
program qwt;
var
d:array[1..100000000] of longint;
a0,a1,b0,b1,u,jg,n,f,ss,m,e:longint;
procedure zxgbs(a,b:integer);
var
i,x,y,z,q,s,c:longint;
begin
for i:=1 to b-1 do
begin
z:=i;
x:=b div z;
y:=b div a;
if x>y then q:=x else q:=y;
for s:=1 to q-1 do
if (x mod s=0)and(y mod s=0) then break
else d[c]:=z;
end;
end;
function jghs(a,b,c,d:integer):longint;
begin
zxgbs(c,d);
for f:=1 to 100000000 do
if (d[f]=0) then begin e:=f; break; end;
if (e=0) then halt;
for ss:=1 to e do
for m:=1 to a do
if (a mod f=0)and(d[m] mod f=0)
then if f=b then jg:=jg+1; writeln(jg);
end;
begin
read(n);
for u:=1 to n do
begin
jg:=0;
readln(a0,a1,b0,b1);
jghs(a0,a1,b0,b1);
end;
end.
pascal 的编译结果是 f和m变量没声明即illegal qualifier

pascal 语言 Hankson 的趣味题2．Hankson 的趣味题(son.pas/c/cpp)【问题描述】Hanks 博士是BT (Bio-Tech,领域的知名专家,他的儿子名叫Hankson.现在,刚刚放学回家的Hankson 正在思考一个有趣的问题.今天在课
你的jghs函数里面定义了局部变量d,而你的全局数组又是d.这样就会造成冲突……
方法：把jghs函数里面的d用其他不冲突的变量替换