Cod sursa(job #1052563)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 11 decembrie 2013 15:38:42
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.24 kb
Raporteaza aceasta sursa 
program putere;
var a,b,p:int64;
    i:longint;
begin
assign(input,'lgput.in') ; reset(input);
assign(output,'lgput.out'); rewrite(output);
readln(a,b);


p:=1;
for i:=1 to b do p:=(p*a) mod 199999973;
writeln(p);
close(output);
end.