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