PersonalCorpus 版 (精华区)

15725 2002-11-10 14:38:25 BigGuava
123 .PAS Accepted 62 ms 12 kb

var
    k:integer;
    f:array[1..41] of integer;
    res:integer;
begin
    f[1]:=1; f[2]:=1;
    for k:=3 to 41 do f[k]:=f[k-1]+f[k-2];
    readln(k);
    res:=0;
    while k>0 do begin
        res:=res+f[k];
        dec(k);
    end;
    writeln(res);
//    readln;
end.