程序如下:

program x3;

var q,p:real;

m:longint;

begin

readln(p,q);

p:=p/100;

q:=q/100;

for m:=1 to maxlongint do

if (trunc(m*q)-0.0000001)>trunc(trunc(m*p)+0.0000001);

then

begin

writeln(m);

halt;

end;

end.