[codevs2089]数列 省选也有水23333333333333333333333333333333333333333333333笑抽了又是数论再让我笑一会233333333333333333333333333333333333333

数组都懒得开了，贴代码吧忒简单

var
    n,k,m,p,x:int64;

function f(x,y:int64):int64;
begin
    if y=0 then exit(1);
    f:=f(x,y>>1);
    f:=f*f mod p;
    if y and 1=1 then f:=f*x mod p;
end;

begin
    read(n,k,m,p);
    x:=((m mod p)*(n mod p)-(m*(m+1)>>1 mod p)*(k-1))mod p;
    if x<0 then x:=x+trunc(abs(x)/p)*p+p;
    x:=x mod p;
    writeln(f(m,k-2)*x mod p);
end.

不打广告了，再让我笑一会233333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333……（背过气了）