Submission #7053671
Source Code Expand
var n,m,p,s,k:int64; begin readln(n,m,p); s:=1; k:=n; while p>0 do begin if p mod 2=1 then s:=s*k mod m; p:=p div 2; k:=k*k mod m; end; writeln(s); end.
Submission Info
Submission Time | |
---|---|
Task | B - n^p mod m |
User | luogu_bot2 |
Language | Pascal (FPC 2.6.2) |
Score | 100 |
Code Size | 214 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 |
|
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 |