记录编号 72523 评测结果 AAAAAAAAAA
题目名称 取余运算2 最终得分 100
用户昵称 Gravatar铁策 是否通过 通过
代码语言 Pascal 运行时间 0.002 s
提交时间 2013-10-17 21:59:35 内存使用 0.17 MiB
显示代码纯文本
program P1410;
var
n,m,k,ans:real;
begin
assign(input,'helpless.in');
reset(input);
assign(output,'helpless.out');
rewrite(output);
readln(n,m,k);
ans:=1;
n:=n-trunc(n/k)*k;
while m>0 do
begin
if m-trunc(m/2)*2=1 then ans:=ans*n-trunc(ans*n/k)*k;
m:=trunc(m/2);
n:=sqr(n)-trunc(sqr(n)/k)*k;
end;
writeln(ans:0:0);
end.