1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
#include <cstdio>
#include <array>
#include <cstring>
#include <vector>
#include <algorithm>
#define XXX 1
using namespace std;
typedef unsigned long long int llu;
typedef array< array<llu,2>,2> mac;
mac M;
mac tmp;

llu mn(llu a,llu b, llu mod) // uwaga, wszystko < 2^63, jeden bit na przepelnienia
{
    if(mod<=1000000000ULL)
    {
        return (a*b)%mod;
    }
	llu maska=llu(1);
	llu wynik=llu(0);
	while(maska) // poki maska sie nie przekreci na zero
	{
		if(a & maska)wynik=(wynik+b)%mod;
		b=(b<<llu(1))%mod;
		maska=(maska<<llu(1));
	}
	return wynik;
}

void mnoz(const mac& a, const mac& b, mac& wyn, llu mod)
{
    for(int i=0;i<2;i++)
    {
        for(int j=0;j<2;j++)
        {
            wyn[i][j]=0;
            for(int k=0;k<2;k++)
            {
                wyn[i][j]=(wyn[i][j]+mn(a[i][k],b[k][j],mod))%mod;
            }
        }
    }
}

llu fib(llu k, llu mod)
{
    mac wyn;
    wyn[0][0]=1; wyn[0][1]=0;
    wyn[1][0]=0; wyn[1][1]=1;
    
    M[0][0]=0; M[0][1]=1;
    M[1][0]=1; M[1][1]=1;
    llu pot=0;
    while((1ULL << pot)<=k)pot++;
    
    for(llu i=0;i<pot;i++)
    {
        if((1ULL << i)&k)
        {
            mnoz(M,wyn,tmp,mod);
            wyn=tmp;
        }
        mnoz(M,M,tmp,mod);
        M=tmp;
    }
    return wyn[0][1];
}

llu okres[30]={0,60,300};

bool rozwiaz(llu liczba, int n, vector<llu>& ret, bool jeden=false)
{
    //printf("rozwiaz(%llu,%d)\n",liczba,n);
    llu mod=1ULL;
    int nn=n; while(nn--)mod=mod*10ULL;
    
    if(n<=XXX)
    {
        if(liczba==0)ret.push_back(0);
        if(liczba==1)ret.push_back(1);
        if(jeden && ret.size()>0)return true;
        llu a=0; llu b=1;
        for(int k=2;k<okres[n];k++)
        {
            llu c=(a+b)%mod;
            if(c==liczba)
            {
                ret.push_back(k);
                if(jeden)return true;
            }
            a=b; b=c;
        }
        if(ret.size()>0)return true;
        else return false;
    }
    llu mod2=1ULL;
    nn=n-XXX; while(nn--)mod2=mod2*10ULL;
    vector<llu> kand;
    random_shuffle(kand.begin(),kand.end());
    if(rozwiaz(liczba%mod2,n-XXX,kand))
    {
        //printf("kand.size: %d\n",kand.size());
        for(int i=0;i<kand.size();i++)
        {
           // printf("kandydat: %llu\n",kand[i]);
            for(llu k=kand[i];k<okres[n];k+=okres[n-XXX])
            {
                //printf("fib(%llu,%llu)=%llu versus %llu\n",k,mod,fib(k,mod),liczba);
                //if(k>700)break;
                if(fib(k,mod)==liczba)
                {
                    ret.push_back(k);
                    if(jeden)return true;
                }
            }
        }
        if(ret.size()>0)return true;
        else return false;
    }
    else return false;
}

int main()
{
    llu x=1500;
    for(int i=3;i<=18;i++)
    {
        okres[i]=x;
        x=x*10ULL;
    }
    
    char napis[30];
    scanf("%s",napis);
    int n=strlen(napis);
    llu liczba = 0;
    for(int i=0;i<n;i++)liczba = liczba*10ULL + llu(napis[i]-'0');
    
    vector<llu> wyn;
    if(rozwiaz(liczba,n,wyn,true))
    {
        while(wyn[0]<100ULL)wyn[0]=wyn[0]+okres[n];
        printf("%llu\n",wyn[0]);
        //puts("TAK");
        return 0;
    }
    puts("NIE");
    
}