Cod sursa(job #161769)
Utilizator | 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.