PersonalCorpus 版 (精华区)

148715 20:43:35 28 Feb 2002
Bozhang,HIT,P.R.China 1083 Pascal Accepted 0.03 sec 61K


var
    s:string;
    n,i,j,k:integer;
begin
    read(n); readln(s);
    k:=length(s)-1;
    j:=n mod k; if j=0 then j:=k;
    i:=n; while i<>j do begin i:=i-k; n:=n*i end;
    writeln(n);
end.