比赛代码 - COGS

比赛	07级noip练习1	评测结果	AAAAWWWWWA
题目名称	Hanoi双塔问题	最终得分	50
用户昵称	0彼岸0	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-09-22 20:54:07

显示代码纯文本

program lanlan;
var n:integer;
    an:longint;

procedure hanoi(var n:integer);
var i: integer;
     begin
         an := 1;
         for i:=1 to n+1 do an := an * 2;
         an := an - 2;
     end;
begin
    assign(input, 'hanoi.in');
    assign(output, 'hanoi.out');
    reset(input);
    rewrite(output);
    readln(input, n);
    hanoi(n);
    write(output, an);
    close(input);
    close(output);
end.