program vijos_1041;
var i,j,k,ans:longint;
l,r,m,n:extended;
b:boolean;
begin
readln(l,r);
l:=l/100;
r:=r/100;
b:=true;
for i:=1 to 1000000 do
begin
if (abs(trunc(i*l+0.0001)-trunc(i*r-0.0001))>=1) and b then
begin
ans:=i;
b:=false;
end;
end;
writeln(ans);
end.
为什么要加上0.0001，不加就会错，只能得80分。