Cod sursa(job #362061)

Utilizator arnold23Arnold Tempfli arnold23 Data 7 noiembrie 2009 20:30:01
Problema Ridicare la putere in timp logaritmic Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
var f:text;
    n,i,p,s,o,k:longint;

begin
 assign(f,'lgput.in');
 reset(f);
 readln(f,n,p);
 close(f);


 if p mod 2<>0 then begin
   o:=n;
   dec(p);
   end
 else o:=1;

 k:=p div 2;
 s:=1;
 for i:=1 to k do s:=s*n;

 s:=s*s*o;

 assign(f,'lgput.out');
 rewrite(f);
 writeln(f,s);
 close(f);
end.