Cod sursa(job #1195527)
| Utilizator |  Sorin-Gabriel maricasorin |
Data | 7 iunie 2014 17:05:41 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.23 kb |
program ridic;
var n,p:longint;
t:extended;
begin
assign (f,'lgput.in');
reset(f);
assign (g,'lgput.out');
rewrite(g);
read(f,n,p);
t:=1;
while p>0 do begin
t:=t*n;
p:=p-1;
end;
write (g,t mod maxlongint);
close(F);
close(g);
end.