?? a20.pas
字號(hào):
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.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -