Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

need help pleaze 1

Status
Not open for further replies.

kist123

Programmer
Dec 12, 2010
2
GR
???????? ?? ???????? ???????? ??? ???????:
/*1*/ a(1).
/*2*/ a(2).
/*3*/ a(3).
/*4*/ a(4).
/*5*/ b(1).
/*6*/ b(2).
/*7*/ b(3).
/*8*/ b(4).
/*9*/ b(2).
/*10*/ b(7).
/*11*/ c(11).
/*12*/ c(12).
/*13*/ c(13).
/*14*/ c(14).
/*15*/ t(Z):- a(Z), b(Z), not(c(Z)).
/*16*/ s(X,Y):- t(X), Y is X+10, c(Y).
????????? ?? ?????? ??????????? ??? ????????:
?- s(X, Y).



2)
???? ?? ???????? ????????:
a(b(1)).
a(b(2)).
a(b(3)).
a(b(4)).
a(b(6)).
????????????? ??? ?????????? ??? ?? ??????? ???? ????? (???????? ????? ??? ???????
writeln(X)) ?? b(?) ???? ? ?????? ???????.
 

a(b(1)).
a(b(2)).
a(b(3)).
a(b(4)).
a(b(6)).
Be created a process that it would print in the screen (making use of command
writeln (X)) b ([Y]) where [Y] even number(2,4,6,8,10,...)....[/b]

:):):):):)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top