Cod sursa(job #3293741)

Utilizator nistor_dora_valentinaNistor Dora Valentina nistor_dora_valentina Data 12 aprilie 2025 14:30:01
Problema Al k-lea termen Fibonacci Scor 100
Compilator cpp-64 Status done
Runda Arhiva educationala Marime 0.88 kb
#include <fstream>
#define int long long
using namespace std;
ifstream fin("kfib.in");
ofstream fout("kfib.out");
int n, a[4][4], b[4][4], c[4][4], i, j, mod=666013;
void inmultire(int a[4][4], int b[4][4])
{
    int c[4][4];
    for(int i=1; i<=2; i++)
        for(int j=1; j<=2; j++)
            c[i][j]=0;
    for(int i=1; i<=2; i++)
        for(int j=1; j<=2; j++)
            for(int k=1; k<=2; k++)
                c[i][j]=(c[i][j]+a[i][k]*b[k][j])%mod;
    for(int i=1; i<=2; i++)
        for(int j=1; j<=2; j++)
            a[i][j]=c[i][j];
}
void power(int p, int a[4][4], int b[4][4])
{
    while(p)
    {
        if(p%2==1)
            inmultire(a, b);
        inmultire(b, b);
        p/=2;
    }
}
signed main()
{
    fin>>n;
    a[1][1]=0, a[1][2]=1;
    b[1][1]=1, b[1][2]=1, b[2][1]=1;
    power(n, a, b);
    fout<<a[1][1];
    return 0;
}