?? ac1206.pas
字號:
program ural1206;
const
maxdigit=87;
var
a:array[0..maxdigit]of word;
k,i:byte;
j:word;
begin
read(k);
a[1]:=3;a[0]:=6;
for i:=2 to k do begin
for j:=0 to maxdigit do
a[j]:=a[j]*55;
for j:=0 to maxdigit do
if a[j]>9 then begin
inc(a[j+1],a[j] div 10);
a[j]:=a[j] mod 10;
end;
end;
j:=maxdigit;
while a[j]=0 do dec(j);
while j>0 do begin
write(a[j]);dec(j);
end;
writeln(a[0]);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -