Cod sursa(job #502913)

Utilizator vendettaSalajan Razvan vendetta Data 20 noiembrie 2010 20:05:00
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.23 kb
Raporteaza aceasta sursa 
USES MATH;
VAR
    F,G:TEXT;
    p,n,x:longint;
begin
    assign(f,'nlap.in');reset(f);
    assign(g,'nlap.out');rewrite(g);
    readln(f,n,p);
    x:=trunc(power(n,p)) mod 19999973;
    write(g,x);
    CLOSE(F);CLOSE(G);
end.