Cod sursa(job #2548167)
| Utilizator |  Arteni Cristi Arteni_Cristi |
Data | 16 februarie 2020 12:42:10 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.32 kb |
var n,a,x,k:int64;
begin
assign(input,'lgput.in'); reset(input);
assign(output,'lgput.out'); rewrite(output);
readln(a,n);
k:=1999999973; x:=1;
while n>0 do
begin
if n mod 2=1 then x:=((x mod k)*(a mod k)) mod k;
a:=(a mod k)*(a mod k);
n:=n div 2
end;
writeln(x);
close(input);
close(output)
end.
