men(“Michail”).

men(“Maxim”).

mama(“Olga”).

sons(“Michail”,”Olga”).

sons(“Maxim”,”Olga”).

doughter(“Olga”,”Vasiliy”).

deda(X,Y) :--men(X),men(Y),sons(X,Y),doughter(Z,Y).

brother(X,Y) :--men(X),men(Y), sons(X,Z),sons(Y,Z),X<>Y.

Результат: Olga, Vaciliy

Задание 5.

1. Реализовать следующую программу: Получить псевдослучайные вещественные числа в диапазоне от 0 до 1.

goal

random(X),

Z=X,

write("Псевдослучайное вещественное число от 0 до 1 : ",Z),

nl.

Результат: 0,64823988962

2. Получить случайные целые числа в диапазоне от 0 до 10 и от 10 до 35.

goal

random(10,X),

Z=X,

write("Псевдослучайное вещественное число от 0 до 10 : ",Z),

nl.

Результат: 5

goal

random(25,X),

Z=X++10,

write("Псевдослучайное вещественное число от 10 до 35:,Z),

nl.

Результат: 21

Задание 6.