|
|
вернуться в форумGive me some tests!PLZ! I have WA test1!!! {$N+,E-} program tmp2; {$APPTYPE CONSOLE} uses SysUtils; var i,k,j,p,q,d:integer; n,e,c:int64; function pow1(a,k:int64):int64; var b:int64; begin b:=1; while k>0 do if k mod 2 = 0 then begin k:=k div 2; a:=a*a; end else begin dec(k); b:=b*a; end; pow1:=b; end; function powmod(a,k,n:int64):int64; var b:int64; begin b:=1; while k>0 do if k mod 2 = 0 then begin k:=k div 2; a:=(a*a) mod n; end else begin dec(k); b:=(b*a) mod n; end; powmod:=b; end; procedure factor(n:integer); var d:integer; begin for d:=2 to trunc(sqrt(n)) do if n mod d =0 then begin p:=d; q:=n div d; exit; end; end; begin { TODO -oUser -cConsole Main : Insert code here } { reset(input,'data.in'); rewrite(output,'data.out');} readln(k); for i:=1 to k do begin readln(e,n,c); factor(n); d:=1; while (1+k*(p-1)*(q-1)) mod e <> 0 do inc(k); d:=(1+k*(p-1)*(q-1)) div e; writeln(powmod(c,d,n)); end; end. |
|
|