[NOIP 2001]数的计算 - Ezoi_XY - 78525

记录编号	78525	评测结果	AAAAA
题目名称	1415.[NOIP 2001]数的计算	最终得分	100
用户昵称	Ezoi_XY	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2013-11-04 08:37:12	内存使用	0.17 MiB

显示代码纯文本

Program cog1415;
    Var
        F,S:Array[0..1010]Of Longint;
        I,N:Longint;
    Begin
        Assign(Input,'nums.in');
        Assign(Output,'nums.out');
        Reset(Input);
        Rewrite(Output);
        S[0]:=0;
        Readln(N);
        For I:=1 To N Do
            Begin
                F[I]:=S[I Shr 1]+1;
                If I<=500 Then S[I]:=S[I-1]+F[I];
            End;
        Writeln(F[N]);
        Close(Input);
        Close(Output);
    End.