lab5

%1.

чет(X) :- X mod 2 =:= 0.

печать_нечет(_, Y) :-
        not(чет(Y)),
        write(Y), tab(1), fail.

печать_нечет(X, Y) :-
        Y \== X, Y1 is Y - 1, печать_нечет(X, Y1); true.

нечет() :- read(X), read(Y), печать_нечет(X, Y).


%2.

выч_сум(X, Y, Sum) :-
        S is X + Sum,
        X \== Y,
        X1 is X + 1,
        выч_сум(X1, Y, S).

выч_сум(X, X, Sum) :- write(sum = Sum).

сум() :-
                read(X),
                read(Y),
                Y1 is Y + 1,
                выч_сум(X, Y1, 0).

%3.

найти_мин(0, Min) :- write(Min).

найти_мин(X, Min) :-
        D is X mod 10,
        X1 is X div 10,
        D < Min,
        найти_мин(X1, D).

найти_мин(X, Min) :-
        X1 is X div 10,
        найти_мин(X1, Min).

мин() :-
        read(X),
        X \= 0,
        X1 is abs(X),
        найти_мин(X1, 9).

мин() :- write(0).

%4.

выч_фиб(0, Y) :- Y is 1, !.
выч_фиб(1, Y) :- Y is 1, !.

выч_фиб(X, Y) :-
        X1 is X - 2,
        X2 is X - 1,
        выч_фиб(X1, Y1),
        выч_фиб(X2, Y2),
        Y is Y1 + Y2.

фиб() :-
        repeat,
        read(X),
        (X < 0, !;
                  выч_фиб(X, Y), write(Y), nl, fail).