Cod sursa(job #242991)
| Utilizator |  Morariu Razvan qSort |
Data | 11 ianuarie 2009 17:20:05 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.28 kb |
program lgput;
var m,n,c:longint;
f,g:text;
begin
assign(f,'lgput.in'); reset(f);
assign(g,'lgput.out'); rewrite(g);
read(f,m,n);
c:=1;
while n<>0 do
begin
if n mod 2=1 then c:=c*m;
m:=m*m;
n:=n div 2
end;
c:=c mod 1999999973;
write(g,c);
close(f); close(g);
end.