Submission #3560143


Source Code Expand

var 
  b,p,k:int64;
  function quick(a,b:int64):int64;
  var ans,base:int64;
  begin 
     if b=0 then exit(1 mod p);
     ans:=1; base:=a;
     while (b<>0) do begin
         if (b and 1)=1 then ans:=(ans*base) mod p;
         base:=base*base mod p;
         b:=b shr 1;  //p二进制后移一位
     end;
     exit(ans);
  end;
begin
     read(b,p,k);
     writeln(quick(b,k));
end.

Submission Info

Submission Time
Task B - n^p mod m
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 100
Code Size 402 Byte
Status AC
Exec Time 0 ms
Memory 128 KB

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status AC
AC × 29
Set Name Test Cases
Sample
All 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, 019.txt, 020.txt, 021.txt, 022.txt, 023.txt, 024.txt, 025.txt, 026.txt, 027.txt, sample_01.txt, sample_02.txt
Case Name Status Exec Time Memory
001.txt AC 0 ms 128 KB
002.txt AC 0 ms 128 KB
003.txt AC 0 ms 128 KB
004.txt AC 0 ms 128 KB
005.txt AC 0 ms 128 KB
006.txt AC 0 ms 128 KB
007.txt AC 0 ms 128 KB
008.txt AC 0 ms 128 KB
009.txt AC 0 ms 128 KB
010.txt AC 0 ms 128 KB
011.txt AC 0 ms 128 KB
012.txt AC 0 ms 128 KB
013.txt AC 0 ms 128 KB
014.txt AC 0 ms 128 KB
015.txt AC 0 ms 128 KB
016.txt AC 0 ms 128 KB
017.txt AC 0 ms 128 KB
018.txt AC 0 ms 128 KB
019.txt AC 0 ms 128 KB
020.txt AC 0 ms 128 KB
021.txt AC 0 ms 128 KB
022.txt AC 0 ms 128 KB
023.txt AC 0 ms 128 KB
024.txt AC 0 ms 128 KB
025.txt AC 0 ms 128 KB
026.txt AC 0 ms 128 KB
027.txt AC 0 ms 128 KB
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB