记录编号 141559 评测结果 AAAAAAAAAA
题目名称 [NOIP 2014PJ]比例简化 最终得分 100
用户昵称 Gravatar铁策 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2014-12-02 21:57:01 内存使用 0.17 MiB
显示代码纯文本
program radio;
var
a,b,l,i,j,k,m:longint;
p,q,ans:double;
function gcd(x,y:longint):longint;
begin
if y=0 then exit(x) else exit(gcd(y,x mod y));
end;
begin
assign(input,'ratio.in');
reset(input);
assign(output,'ratio.out');
rewrite(output);
readln(a,b,l);
p:=a/b;
ans:=1010101010;
for i:=1 to l do
  for j:=1 to l do
  if (gcd(i,j)=1)and(i/j>=p)and(i/j-p<ans) then begin
  ans:=i/j-p;
  k:=i;
  m:=j;
  end;
writeln(k,' ',m);
close(input);
close(output);
end.