Cod sursa(job #240468)
| Utilizator |  Romanescu Gabriela gabyroma |
Data | 7 ianuarie 2009 18:27:23 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.33 kb |
program lgput;
var f,g:text;
n,p,x,y,i:longint;
begin
assign(f,'lgput.in');
assign(g,'lgput.out');
reset(f);
rewrite(g);
readln(f,n,p);
y:=n mod 1999999973;
i:=p;
x:=1;
while i>0 do begin
if i mod 2=1 then x:=x*y mod 1999999973;
y:=y*y mod 1999999973;
i:=i div 2;
end;
writeln(g,x);
close(f);
close(g);
end.