a20.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 18 行

var x,n,k:integer;
begin
write('x=');readln(x);
write('n=');readln(n);
k:=1;
while n>0 do
      if n mod 2=0 then begin
                        x:=x*x;
                        n:=n div 2;
                        end
                   else begin
                        k:=x*k;
                        dec(n);
                        end;
write(k,' ');
readln;
end.