记录编号 218201 评测结果 AAAAWWWWWW
题目名称 取余运算2 最终得分 40
用户昵称 GravatarFoolMike 是否通过 未通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2016-01-08 22:41:03 内存使用 0.17 MiB
显示代码纯文本
  1. var
  2. m:int64;
  3. n,x,k,ans:extended;
  4. begin
  5. assign(input,'helpless.in');
  6. reset(input);
  7. assign(output,'helpless.out');
  8. rewrite(output);
  9. read(n,m,k);
  10. n:=n-trunc(n/k)*k;
  11. x:=n;ans:=1;
  12. repeat
  13. if m and 1=1 then ans:=ans*x-trunc(ans*x/k)*k;
  14. x:=x*x-trunc(x*x/k)*k;m:=m shr 1;
  15. until m=0;
  16. writeln(trunc(ans));
  17. close(input);
  18. close(output);
  19. end.