提出 #11249218


ソースコード 拡げる

var
  n,m,p:int64;
function ksm(x,y,n:int64):int64;
var
  z,t:int64;
begin
  z:=x; t:=1;
  while y>0 do
  begin
    if(y and 1)=1 then t:=t*z mod n;
    z:=z*z mod n;
    y:=y shr 1;
  end;
  exit(t);
end;
begin
  read(n,m,p);
  write(ksm(n,p,m));
end.

提出情報

提出日時
問題 B - n^p mod m
ユーザ luogu_bot4
言語 Pascal (FPC 2.6.2)
得点 0
コード長 270 Byte
結果 WA
実行時間 0 ms
メモリ 128 KB

コンパイルエラー

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

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 0 / 100
結果 AC
WA × 29
セット名 テストケース
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
ケース名 結果 実行時間 メモリ
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