Pagini recente » Cod sursa (job #1299481) | Cod sursa (job #1505217) | Cod sursa (job #1321375) | Cod sursa (job #2543383) | Cod sursa (job #189802)
Cod sursa(job #189802)
program sssrt;
const q=1999999973;
var a,b,n,i,c:longint;
j:byte;
v:array[1..33]of longint;
f,g:text;
begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);
rewrite(g);
readln(f,a,b);
i:=1;j:=1;
n:=a;v[j]:=a;
while i*2<=b do begin
n:=(n*n)mod q;
i:=i*2;
j:=j+1;
v[j]:=n;
end;
j:=j-1;c:=i div 2;
while i<b do begin
while i+c<=b do begin
n:=(n*v[j])mod q;
i:=i+c;
end;
c:=c div 2;
j:=j-1;
end;
writeln(g,n);
close(f);close(g);
end.