Pagini recente » Cod sursa (job #2307809) | Cod sursa (job #1508865) | Cod sursa (job #1155709) | Cod sursa (job #2510296) | Cod sursa (job #876416)
Cod sursa(job #876416)
var n,p,x:int64;c:integer;f,g:text;
const a=1999999973;
Begin
assign(f,'lgput.in');reset(f);
assign(g,'lgput.out');rewrite(g);
For c:=3 to 8 do
Begin
n:=11;
p:=c;
x:=1;
while p<>1 do
Begin
If (p mod 2 = 0) then
Begin
n:=(n*n)mod a;
p:=p div 2;
end
else
Begin
x:=(x*n)mod a;
p:=p-1;
end;
end;
end;
writeln(g,(x*n) mod a);
close(f);
close(g);
end.