Cod sursa(job #503311)

Utilizator vendettaSalajan Razvan vendetta Data 22 noiembrie 2010 15:14:50
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.28 kb
Raporteaza aceasta sursa 
program ridicare_la_putere_in_timp_logatirmic;
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.