|
|
вернуться в форумFilippov Nuckolas SSAU#2's ACprogram is HERE! program conductors; var p,q:real; i:longint; px,qx:real; begin read(p); read(q); p:=p/100; q:=q/100; for i:=1 to 11000 do begin px:=p*i; qx:=q*i; px:=trunc(px)+1; if frac(qx)=0 then qx:=qx-1 else qx:=trunc(qx); if (px<=qx)and((px/i)>p)and((qx/i)<q) then begin writeln(i); break; end; end; end. |
|
|