program e;
var
a:array[1..200]of longint;
b:array[1..10000]of integer;
n,i,j,m:longint;
begin
readln(n);
a[1]:=2;
if n<26 then begin
for i:=2 to n do a[i]:=a[i-1]*2+2;
writeln(a[n]);
end
else begin
b[1]:=2;b[2]:=6;b[3]:=8;b[4]:=8;b[5]:=0;b[6]:=1;b[7]:=7;b[8]:=6;
m:=8;
for i:=26 to n do begin
for j:=1 to m do b[j]:=b[j]*2;
b[1]:=b[1]+2;
for j:=1 to m do begin
b[j+1]:=b[j]div 10+b[j+1];
b[j]:=b[j] mod 10;
end;
inc(m);
end;
while b[m]=0 do m:=m-1;
for i:=m downto 1 do write(b[i]);
end;
end.
源程序如上,自己可以加上输入输出语句,望采纳!!!