PersonalCorpus 版 (精华区)

158167 04:11:22 9 Mar 2002
Bozhang,HIT,P.R.China 1133 Pascal Accepted 0.01 sec 53K


var
    ai,aj,b:extended;
    i,j,k,n:extended;
function fib(a:extended):extended;
var
    i,j,k:extended;
begin
    if (a=1) or (a=2) then begin
        result:=1; exit;
    end;
    i:=1;j:=1;
    while a<>2 do begin
        a:=a-1;
        k:=j;
        j:=i+j;
        i:=k;
    end;
    result:=j;
end;
begin
    read(i); read(ai); read(j); read(aj); read(n);
    if i>j then begin
        k:=ai; ai:=aj; aj:=k;
        k:=i; i:=j; j:=k;
    end;
    b:=(aj-fib(j-i+1)*ai)/fib(j-i);
    if n<=i-1 then begin
        while n<>i-1 do begin
            n:=n+1;
            k:=b;
            b:=ai-b;
            ai:=k;
        end;
        writeln(b:0:0);
    end else begin
        while n<>i do begin
            n:=n-1;
            k:=ai;
            ai:=ai+b;
            b:=k;
        end;
        writeln(ai:0:0);
    end;
end.