PersonalCorpus 版 (精华区)

151311 10:32:48 2 Mar 2002
Bozhang,HIT,P.R.China 1051 Pascal Accepted 0.01 sec 49K


var m,n:integer;
begin
    readln(m,n);
    if m>n then begin m:=m+n; n:=m-n; m:=m-n end;
    if m=1 then writeln((n+1) div 2) else
        if (m mod 3=0) or (n mod 3=0) then writeln(2) else writeln(1);
end.