Cod sursa(job #330654)
| Utilizator | Data | 10 iulie 2009 23:35:51 | |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.54 kb |
var n,p,rez,r2:int64;
f,g:text;
function putere(x,y:int64):int64;
var a:int64;
begin
if y=0 then
putere:=1
else
if y mod 2=1 then
putere:=putere(x,y-1)*x
else
begin
a:=putere(x,y div 2);
putere:=a*a;
end;
end;
begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);rewrite(g);
read(f,n,p);
rez:=putere(n,p);
write(g,rez mod 1999999973);
close(f);close(g);
end.