PersonalCorpus 版 (精华区)

149149 13:44:46 1 Mar 2002
Bozhang,HIT,P.R.China 1104 Pascal Accepted 0.2 sec 49K


var
    ch:char;
    sum,mink,i:integer;
begin
    sum:=0;    mink:=0;
    while not eoln(input) do begin
        read(ch);
        if ((ch>='0') and (ch<='9')) then i:=ord(ch)-48 else i:=ord(ch)-55;
        if i>mink then mink:=i;
        sum:=sum+i;
    end;
    if mink=0 then begin writeln(2);halt end;
    for i:=mink+1 to 36 do if sum mod (i-1) =0 then begin
        writeln(i); halt;
    end;
    writeln('No solution.');
end.