Cod sursa(job #248595)

Utilizator Vlad_fiscaVlad Fisca Vlad_fisca Data 26 ianuarie 2009 08:08:17
Problema Ridicare la putere in timp logaritmic Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.38 kb
program ab;
var f,g:text;
    a,c,n,m,b:longint;
begin
     assign(f,'lgput.in');
     assign(g,'lgput.out');
     reset(f);
     rewrite(g);
     read(f,n,a);
     c:=1;
     m:=n; b:=a;
     while m<>0 do
     begin
          if m mod 2=1 then
             c:=c*b;
          b:=b*b;
          m:=m div 2;
     end;
     write(g,c);
     close(f);
     close(g);
end.