Cod sursa(job #503312)

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