language: Pascal (gpc) (gpc 20070904)
date: 113 days 23 hours ago
link:
可見度: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

var
 a, n, k, c, b: integer;
begin
 readln( a );
 readln( n );
  k:= n; b:= 1; c:= a;
  while k <> 0 do
   if k mod 2 = 0
    then
     begin
      k:= k div 2;
      c:= c * c;
     end
    else
     begin
      k:= k - 1;
      b:= b * c;
     end;
 writeln( b );        
end.