[NOIP 2007]Hanoi双塔问题 - EnAsn - 2614

记录编号	2614	评测结果	AAAAAAAAAA
题目名称	[NOIP 2007]Hanoi双塔问题	最终得分	100
用户昵称	EnAsn	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2008-09-23 14:15:40	内存使用	0.11 MiB

显示代码纯文本

program ex;
type
 ss=array[0..200]of integer;
var
 a:ss;
 n,i:integer;
 f1,f2:text;
procedure init;
 begin
  assign(f1,'hanoi.in');
  assign(f2,'hanoi.out');
  reset(f1);
  rewrite(f2);
  readln(f1,n);
 end;
procedure main;
 var
  i,j:integer;
 begin
  a[1]:=1;
  a[0]:=1;
  for i:=1 to n+1 do
   begin
    for j:=1 to a[0] do
      a[j]:=a[j]*2;
    for j:=1 to a[0] do
     if a[j]>=10 then
      begin
       a[j+1]:=a[j+1]+a[j]div 10;
       a[j]:=a[j]mod 10;
      end;
     if a[a[0]+1]<>0 then inc(a[0]);
   end;
  a[1]:=a[1]-2;
 end;
begin
 init;
 main;
 for i:=a[0] downto 1 do
  write(f2,a[i]);
 close(f1);
 close(f2);
end.