Cod sursa(job #163751)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 23 martie 2008 09:44:31
Problema Ridicare la putere in timp logaritmic Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.38 kb
program log;
var a,b : int64;
    f,g : text;
function lm(x,y:int64):int64;
begin
if y=1 then lm := x
else
if y mod 2 = 0 then lm := sqr(lm(x,y div 2)) mod 1999999973
                else lm := lm(x,y-1)*x mod 1999999973;
end;


begin
assign(f,'lgput.in');
reset(f);
assign(g,'lgput.out');
rewrite(g);

read(f,a,b);

write(g,lm(a,b));

close(f);
close(g);

end.