Submission #11249407

Source Code Expand

var
  n,m,p,s,x:int64;
begin
  read(n,m,p);
  x:=n;
  s:=1;
  while p>0 do
  begin
    if p mod 2=1 then s:=s*x mod m;
    x:=x*x mod m;
    p:=p div 2;
  end;
  write(s);
end.

Submission Info

Submission Time
Task B - n^p mod m
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 0
Code Size 189 Byte
Status WA
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 0 / 100
Status AC
WA × 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 WA 0 ms 128 KB
002.txt WA 0 ms 128 KB
003.txt WA 0 ms 128 KB
004.txt WA 0 ms 128 KB
005.txt WA 0 ms 128 KB
006.txt WA 0 ms 128 KB
007.txt WA 0 ms 128 KB
008.txt WA 0 ms 128 KB
009.txt WA 0 ms 128 KB
010.txt WA 0 ms 128 KB
011.txt WA 0 ms 128 KB
012.txt WA 0 ms 128 KB
013.txt WA 0 ms 128 KB
014.txt WA 0 ms 128 KB
015.txt WA 0 ms 128 KB
016.txt WA 0 ms 128 KB
017.txt WA 0 ms 128 KB
018.txt WA 0 ms 128 KB
019.txt WA 0 ms 128 KB
020.txt WA 0 ms 128 KB
021.txt WA 0 ms 128 KB
022.txt WA 0 ms 128 KB
023.txt WA 0 ms 128 KB
024.txt WA 0 ms 128 KB
025.txt WA 0 ms 128 KB
026.txt WA 0 ms 128 KB
027.txt WA 0 ms 128 KB
sample_01.txt WA 0 ms 128 KB
sample_02.txt WA 0 ms 128 KB