Pagini recente » Cod sursa (job #2524466) | Cod sursa (job #1378147) | Cod sursa (job #1712541) | Cod sursa (job #2968818) | Cod sursa (job #189800)
Cod sursa(job #189800)
program sssrt;
const q=1999999973;
var a,b,n:longint;
i,j,c:integer;
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:=sqr(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.