PersonalCorpus 版 (精华区)

276673 08:19:01 14 Nov 2002 Big Guava
1225 Pascal Accepted 0.02 sec 53K

program p1225;

var
    i:integer;
    c:array[1..45,1..2] of extended;

begin

{$IFNDEF ONLINE_JUDGE}
    assign(input,'input1225.txt');reset(input);
    assign(output,'output1225.txt');rewrite(output);
{$ENDIF}

    c[1,1]:=2; c[1,2]:=0;
    for i:=2 to 45 do begin
        c[i,1]:=c[i-1,1]+c[i-1,2];
        c[i,2]:=c[i-1,1];
    end;
    readln(i);
    writeln(c[i,1]:0:0);
end.