Dinh Can's Blog

Theo truyền thống, các mùa trong năm ở Bắc bán cầu được phân chia như sau:

Cho một dãy số tự nhiên gồm n phần tử với:

a[1] = a[2] = a[3] = 1, a[4] = 3, a[5] = 5,….,a[n]. Tìm a[n].

- Dữ liệu vào: File văn bản timso.inp chứa số nguyên dương n. (n<=75 ).

- Dữ liệu ra: file văn bản timso.out chứa kết quả là giá trị a[n] cần tìm.

  CODE THAM KHẢO:

program TimSo;

const fi='timso.inp';

      fo='timso.out';

var i,n: integer;

    a,b,c,an: QWord;

    f:text;

begin

    assign(f,fi); reset(f);

    readln(f,n);

    close(f);

    assign(f,fo); rewrite(f);

    if n <=3 then an:=1 else

    begin

        i:=4;

        a:=1;b:=1;c:=1;

        while i<=n do

        begin

            an:=a+b+c;

            a:=b;

            b:=c;

            c:=an;

            inc(i)

        end;

    end;

    writeln(f,an);

    close(f);

end.