Pagini recente » Cod sursa (job #2234726) | Cod sursa (job #3187487) | Cod sursa (job #1610593) | Diferente pentru problema/brperm intre reviziile 32 si 24 | Cod sursa (job #714670)
Cod sursa(job #714670)
program putere_lg;
var n,p,c:int64;
f,g:text;
begin
assign (f,'lgput.in'); reset (f);
assign (g,'lgput.out'); rewrite (g);
read (f,n,p);
c:=1;
while (p>0) do
begin if (p mod 2=1) then begin c:=(c*n) mod 1999999973;
p:=p-1;
end;
n:=(n*n) mod 1999999973;
p:=p div 2;
end;
write (g,c);
close (f);
close (g);
end.