Cod sursa(job #743453)
| Utilizator | Data | 4 mai 2012 15:07:58 | |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.39 kb |
var a,b,c:int64;
function alab(b:int64):int64;
var aux:int64;
Begin
if b=1 then alab:=a
else
if odd(b) then alab:=a*alab(b-1)
else
begin
aux:=alab(b div 2);
alab:=aux*aux;
end;
END;
BEGIN
assign(input,'lgput.in');
reset(input);
readln(a,b);
c:=1999999973;
assign(output,'lgput.out');
rewrite(output);
writeln(alab(b) mod c);
end.
