Cod sursa(job #159326)
| Utilizator |  Kis Levente Lorand lori |
Data | 14 martie 2008 07:43:14 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.3 kb |
const t=1999999973;
var a,n,r:int64;
begin
assign(input,'lgput.in'); reset(input);
assign(output,'lgput.out'); rewrite(output);
readln(a,n); r:=1;
while n<>0 do begin
if n mod 2=1 then r:=r*a mod t;
a:=a*a mod t;
n:=n div 2;
end;
writeln(r);
close(input); close(output);
end.