不是VIP会员,不能显示答案

题目解答

题目:
program nbcz09_4;
var n,n1,p,q,d,e:longint;
i,x,y,s:longint;

function euclid(a,b:longint;var x,y:longint):longint;
var d1,x1,y1:longint;
begin
if b=0 then begin
x:=1;y:=0;d1:=a;
end else begin
d1:=euclid(b,a mod b,x1,y1);
x:=y1;y:=x1-a div b *y1;
end;
euclid:=d1;
end;

function MLE(a,b,n:longint):longint;
var i,d,x,y:longint;
begin
d:=euclid(a,n,x,y);
if b mod d=0 then MLE:=x
else begin writeln('Error!');halt;end;
end;

begin
readln(p,q,e);
n:=p*q;n1:=(p-1)*(q-1);
readln(x);
s:=1;
for i:=1 to e do s:=(s*x)mod n;
writeln(s);
d:=MLE(e,1,n1);
readln(x);
s:=1;
for i:=1 to d do s:=(s*x)mod n;
writeln(s);
end.
输入3 11 7
9
15
输出:9
考点:
分析:
解答:
评论:
老师: