a、b、c、d为已知数，要满足(a-x)/b和(c-x)/d都为整数，，，求x？？？？？？？？
把x从1到100 ，逐一代入计算，直到满足条件。。。。
求公式怎么编？？？
ss:=0;
for x=1 to 100 do begin
if floor((a-x)/b)= (a-x)/b and floor((c-x)/d)= (c-x)/d then begin
ss:=x;
break;
end
end
ss为所求值
@jinzhe 老师好，还是同样的问题，，，，把x从1到100 ，逐一代入计算，把满足条件的x的值都显示出来，怎么做???????????????????
variable:n[100]=0;
ss:=0;
for x=1 to 100 do begin
if floor((a-x)/b)= (a-x)/b and floor((c-x)/d)= (c-x)/d then begin
x:=n[x];
end
end
for i=1 to 100 do begin
if n[i]<>0 then drawtext(1,close+x,numtosrtr(x,0));
end