Cod sursa(job #743452)
| Utilizator | Data | 4 mai 2012 15:07:18 | |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| 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.
