% vim:set syntax=prolog:

?- writeln("Задание 1:").

выражение1(X) :-
    X =\= 2, Y is (X*X + 1) / (X - 2), writeln(Y); writeln("Делить на 0 нельзя").

?- выражение1(2).
?- выражение1(5).
?- выражение1(10).
?- выражение1(12.5).


?- nl, nl, writeln("Задание 5:").
в_промежутке(X, A, B) :-
    X >= A, X =< B,
    write("Число "), write(X), write(" попадает в промежуток ["), write(A), write(';'), write(B), write(']'), nl, !;
    write("Число "), write(X), write(" не попадает в промежуток ["), write(A), write(';'), write(B), write(']'), nl.

?- в_промежутке(5, 1, 10).
?- в_промежутке(0, 1, 10).

?- nl, nl, writeln("Задание 7:").
максимум(X, Y, Z, M) :-
    X >= Y, X >= Z, M is X;
    Y >= X, Y >= Z, M is Y;
    Z >= X, Z >= Y, M is Z.

?- максимум(1, 1, 1, M), writeln(M).
?- максимум(1, 2, 3, M), writeln(M).
?- максимум(5, 7, 3, M), writeln(M).
?- максимум(19, 7, 11, M), writeln(M).

?- halt.