Cod sursa(job #1544554)

Utilizator Gaci27Horvat Catalin Gaci27 Data 6 decembrie 2015 13:28:27
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.28 kb
Raporteaza aceasta sursa 
var n, p, sol, i:longint;
	f, g:text;

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

    read(f, n, p);

    sol := 1;
    for i := 1 to p do
    	sol := (sol * n) mod 1999999973;

    write(g, sol);

    close(f);
    close(g);
end.