PersonalCorpus 版 (精华区)

148657 18:24:19
28 Feb 2002 Bozhang,HIT,P.R.China 1011 Pascal Accepted 0.02 sec 57K


var
    a,b:real;
    s:string;
    i:integer;
    eps:real;
begin
    eps:=1E-7;
    read(a);
    if eoln(input) then begin
        readln(s);
        readln(b);
    end else readln(b);
    a:=a/100; b:=b/100;
    for i:=1 to 50000 do
        if trunc(a*i+eps)<>trunc(b*i-eps) then begin
                writeln(i);halt
        end;
end.