рекурсия

[Lena neznayka]

Для заданного натурального числа N>=1 опрделить, единственное натуральное число a, для которого выполняется неравенство:
2*е^(а-1)<=N<=2 в степени а

[dimafe6]

готов сделать, не за бесплатно. пиши - dimafe2000@mail.ru

[rrrFer]

predicates    
    nvs(integer,integer,integer)
clauses               
    nvs(N,_,_):-    
        N<1,!,fail.  
    nvs(N,A,_):-    
        ZZ=2*exp(A-1),N<ZZ,!,fail.
    nvs(N,A,Result):-
        Z=exp(A*ln(2)),N>Z,
        AA=A+1,nvs(N,AA,Result).
    nvs(_,A,A).
        
goal
    write("N: "),readint(N),
    nvs(N,0,A), write(A).

вроде бы так (на турбо прологе)