Cod sursa(job #161769)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 18 martie 2008 19:51:08
Problema Suma divizorilor Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 kb
var a,b,c,i,m:int64;
    f,g:text;
begin
assign(f,'modulo.in');reset(f);
assign(g,'modulo.out');rewrite(g);
readln(f,a,b,c);
m:=1;
for i:=1 to b do
    m:=m*a;
writeln(g,m mod c);
close(g);
end.