PersonalCorpus 版 (精华区)

148720 20:58:11
28 Feb 2002 Bozhang,HIT,P.R.China 1157 Pascal Accepted 0.09 sec 90K


var
    s:array[1..10000] of integer;
    m,n,i,j,k,r:integer;
begin
    read(m,n,k);
    for i:=1 to 10000 do begin
        r:=1;
        for j:=2 to integer(trunc(sqrt(i))) do if i mod j =0 then inc(r);
        s[i]:=r;
    end;
    for i:=k+1 to 10000 do
        if (s[i]=n) and (s[i-k]=m) then begin
            writeln(i);
            halt
        end;
    writeln(0);
end.