PersonalCorpus 版 (精华区)

149587 05:20:31 2 Mar 2002
Bozhang,HIT,P.R.China 1139 Pascal Accepted 0.02 sec 49K


var
    m,n,i,j,k,tot:integer;
begin
    readln(n,m);
    dec(n); dec(m);
    k:=0; tot:=0;
    for i:=1 to n do begin
        if ((m*i) mod n)=0 then j:=(m*i) div n else begin
            inc(tot);
            j:=((m*i) div n) +1;
        end;
        inc(tot,j-k);
        k:=j;
    end;
    writeln(tot);
    readln;
end.