问题描述
对于给定ｋ，求出所有满足１／ｋ＝１／ｘ＋１／ｙ的ｘ和ｙ的值．
问题输入
整数ｋ（＜３００００）
问题输出
以ｘ从小到大的顺序输出
输入样例
8
输出样例
1/8=1/9+1/72
1/8=1/10+1/40
1/8=1/12+1/24
1/8=1/16+1/16
代码：
var k,x,y,i:longint;
begin
read(k);
for i:=k+1 downto 1 do
for x:=k+1 to 2*k do
begin
y:=k*i;
if 1/k=1/x+1/y
then begin
writeln('1/',k,'=1/',x,'+1/',y);
break;
end;
end;
end.
输入10000，执行时间为5776ms，而限制时间为1000ms。。。。。
我已经想尽办法了。。。
求解！

哪个oj的题目？我已写好，试试：
var
k,x,y:longint;
begin
read(k);
for x:=k+1 to k<<1 do
if k*x mod(x-k)=0 then
writeln('1/',k,'=1/',x,'+1/',k*x div(x-k))
end.

LZ用哪个测评器的？

做过了忘记的路过