var i,j,ansa,ansb,a,b,l:longint; s,min,ab:extended; begin read(a,b,l); s:=a/b; min:=1000; for i:=1 to l do for j:=1 to l do begin ab:=abs(double(i)/double(j)-s); if (double(i)/double(j)-a/b>=-0.0000000001)and(ab<min) then begin min:=ab; ansa:=i; ansb:=j; end; end; writeln(ansa,' ',ansb); end. /************************************************************** Problem: 2331 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/